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EDIROIRIIALE 


Trois mois maintenant que le premier numéro de DAICLIC est sorti avec pour 
démarrer, une soixantaine d'abonnés. Cette seconde édition est aujourd’hui 
envoyée à près de 200 membres; nous ne pouvons donc que vous remercier de votre 
confiance et de votre intéret pour notre revue qui ne cesse d’ailleurs de 
grossir (B0 pages, c’est un record!)... 


Nous espérons que ce DAICLIC plus fourni que la normale vous satisfera en tout 
points. Si vous avez des critiques à formuler, envoyez-les à la rédaction 
(c'est le seul moyen que nous avons de proposer une revue qui répond le mieux à 
vos souhaits). Nous vous rappellons que vos articles et programmes sont 
toujours les bienvenus et si nous en avions suffisamment, nous pourrions 
envisager la publication d’un numéro supplémentaire cette année. Vous savez 


donc ce qu’il vous reste à faire... 


Vous remarquerez dans ce numéro, 2 articles concernant l'adaptation des 
joysticks ATARI au DAI. Ne vous inquiétez pas, c’est normal! Vous pourrez de 
cette façon, choisir celui qui vous convient le mieux... (vous pouvez aussi 
essayer les deux!...) 


Nous tenons à féliciter Bruno DELANNAY et Gaston LAFARGUE pour le dynamisme 
dont ils font preuve dans le développement de leur club IDC BORDEAUX. En effet, 
ce club qui est le dernier en date à s’etre associé à IDC, est tout près de 
passer premier en nombre. Pour plus de détails concernant les activités de IDC 
BORDEAUX, consultez la rubrique du club dans ce numéro. 


Dans le prochain numéro, nous espérons pouvoir vous présenter un nouvel 
interface développé par Fascal JANIN: un synthétiseur vocal de très faible 
cout! Encore un peu de patience... De plus, Eric NEVE à obtenu un schéma 
d'extension ROM et/ou RAM jusqu’à 384 K!!! L'extension comporte 2 circuits 
superposés et connectés au X-BUS par un cable plat de 50 conducteurs. Si vous 
etes amateurs, contactez-nous et nous pourrons envisager la réalisation de ces 
circuits à un niveau professionel. 


1.D.C. 
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+ 
+++++ INFORMATIONS UTILES +++++ 
RSR SSSR RSS OS SRSSSS RS RRRe20. 


ABONNEMENTS: . er , 
L'abonnement compris dans l’inscription est valable de janvier à décembre. Un 
abonnement contracté pendant l’année donne droit aux numéros déjà parus dans 
l’année. Si une personne est inscrite à plusieurs clubs associés, les 
abonnements su PTénentaires lui sont remboursés à raison de 500 F8 pour la 
Belgique et 508 FE pour l'étranger (moins les frais éventuels de 


remboursement). 
Prix de l'inscription à I.D.C.: Belgique: 750 FR 
Etranger: 850 FB 


FÉDR QUE: DNS cp t LA. hèq a 
: — mandat postal ou chèque 
- Virement sur le compte BBL: 371-0356842-45 
DULUINS ET POELS 
ALLEE TOUR RENARD 4 
1400 NIVELLES 


ETRANGER: - mandat postal international uniquement 


ADRESSES: 
POUR VOUS TRE OU COMMANDER DES PROGRAMMES: 


C/0 Fabrice DULUINS 

Allée Tour Renard 4 
B-1400 NIVELLES (BELGIQUE) 
Æ (0)67 / 21.82.10 


POUR ENVOYER _ VOS _ ARTICLES ET PROGRAMMES A PUBLIER: 
IDC - REDACTION 
C/0 Christian POELS 
Rue des Bas-Sarts 10 
B-4100 SERAING_ (BELGIQUE) 
Æ (0)41 / 37.16.06 


POUR COMMERCIAL ISER_VOS_ PROGRAMMES: 
1DC - SOFTWARE 


C/0 Marc VANDERMEERSCH 
Avenue du Vert Bocage 17 
B-1410 WATERLOO (BELGIQUE) 
Æ (0)2 / 354.13.683 


—————————————.—————————.——_____——————————_——————_ _————. 


CONSEIL D’ADMINISTRATION DE 1.D.C. (International DAI Club): 
PRESIDENT: Christian POELS, rue des Has-Sarts 10, B-4100 SERAING 
SECRETAIRE: Marc VANDERMEERSCH, avenue du Vert Bocage 17, B-1410 WATERLOO 
TRESORIER: Fabrice DULUINS, allée Tour Renard 4, B-1400 NIVELLES 


0 


CONTACTS CLUBS ASSOCIES: 
CAROLO-DAI : Etienne SZIGETVARI, Route Provinciale 7, B-1361 CLABECQ 
3 Jacques MOENS, Clos Fontaine des Ducs 6, B-1310 LA HULPE 
IDC BORDEAUX: Bruno DELANNAŸ, Rés.Les ACACIAS B+ B3.Av.de SAIGE, F-33600 FESSAC 
MICRODAI : Victor LESPINEUX, Rue Latour 39, B-4020 LIEGE 


COPYRIGHT: Les articles publiés n’engagent que la responsabilité de leur 
7 auteur. Toute reproduction, meme partielle, de ce magazine est 
interdite sans l’accord de l'éditeur responsable. 


EDITEUR RESFONSABLE: Christian POELS, rue des Bas-Sarts 10, B-4100 SERAING 
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COURRIER 


COURRIER DES LECTEURS 


J’ai lu dans le premier numéro de votre revue, que vous donniez l’adresse de la 
société PRODATA et que vous citiez le nom de M.ART. Je disposais déjà, pour ma 
part, de ces renseignements, et pour cause: j’ai en effet, pas mal de choses à 
leur reprocher et je voudrais à ce propos mettre les lecteurs de DAICLIC en 


garde. 


Voici le détail des faits: 

. Le 28 septembre 1984 je commandais sur le stand MULTISOFT du SICOB, qui était 
en fait tenu par M.ART, Directeur Commercial PRODATA, un double lecteur de 
disquettes 2 x 320 K sous DOS 3.0. J’obtenais à cette occasion une réduction de 
10% et je versais par chèque un accompte de 1000 FF. 

. Après avoir pris plusieurs fois contact avec MULTISOFT, je me suis apperçu 
que j’avais, en fait, passé commande directement auprès de la société belge. 
Début novembre, j’envoyais donc une première lettre avec accusé de réception à 
ces derniers pour leur demander des précisions sur les modalités de livraison. 
. Le 14 novembre, mon accompte était tiré mais je n°’ai jamais reçu de réponse. 
Tout juste un imprimé anonyme qui m’indiquait que suite à un contretemps les 
lecteurs ne seraient livrés qu’à la fin du mois. 

. Six mois après, j’attends toujours! à 

. Depuis, je leur ai réécris à deux reprises, une première fois à M.ART puis 
une seconde fois directement au directeur de la société sans pour cela obtenir 
plus de succès. 

Dans cette dernière lettre datée du 23 février, je leur spécifiais qu’étant 
donné qu’ils n’avaient pu me livrer dans les délais, je n’étais plus intéressé 
par leur matériel et je leur demandais de me rembourser mon accompte. Ces 
drives étaient en effet destinés à une utilisation professionelle et je n'ai 
pas pu me permettre d'attendre leur bon vouloir pour m'équiper. 

. Aujourd’hui, je n’ai plus d’autres solution que d’entamer des poursuites pour 
obtenir gain de cause. 


Tout cela pour vous dire que je trouve vraiment regrettable que ’notre cher 
DAI’ soit commercialisé par des gens qui se préoccupent aussi peu de leur 
clientèle. Si tant est qu’il faille mettre cela sur le compte de la négligence! 
Je ne suis pas sur en tout cas que les coordonnées de personnes aussi peu 
recommandables aient leur place dans votre rubrique "adresses utiles". 


Emmanuel BOUCHERON, 
F-28 CHATEAUDUN CEDEX. 


DAICLIC: Nous vous remercions de votre témoignage et nous sommes comme vous 
désolé que des problèmes pareils puissent survenir! Nous espérons 
toutefois que cette expérience n’a pas été vécue par d’autres 
DAlistes car si tel était le cas, n’hésitez pas à nous écrire; notre 
revue est ouverte à tous! Puissent les responsables de PRODATA lire ce 
courrier et réparer cette faute professionelle dans les plus brefs 
délais! 
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1.D.C. Bordeaux 


Le club 1.D.C. Bordeaux ,associe depuis plusieurs mois au club I.D.C. 
a le plaisir d’annoncer a ses adherents que les differents services 
annonces dans ses imprimes : 


— Logitheque a acces libre 
Bibliotheque d’interet general 
Atelier de reparation du club 


sont d’ors et deja en action !! 
La liste des programmes et des articles est disponible meme pour 
les membres d’ 1.D.C. ou des autres clubs associes sur simple envoi 


de votre support le plus usite : 


- Simple K7 audio 
- K7  memocom 
— Disquette KEN-DOS (80 pistes) 


accompagne d’une enveloppe suffisament timbree , a votre 
adresse , pour la reponse 


D’autre part , grace a l’activite de 1.D.C. Bordeaux une action des 
plus rentable pour ses membres a ete engagee : 


— Un contact direct avec l’industriel Hollandais commercialisant le 

systeme de drives le plus performant existant a l’heure actuelle sur DAI , 
j'ai nomme le systeme  KEN-D0S , permet d’effectuer des achats groupes 
payes en Francs FRANCAIS , livres a Bordeaux ,de lecteurs 800 K { ou si 
vous optez pour 2 lecteurs = 1,6 Mega Bytes !!) a des prix bien entendu 
inferieurs aux drives INDATA ( c’est pas dur ... ) mais aussi moindres 
que ceux rencontres dans les promotions faites par les boutiques les 
commercialisant en BELGIQUE { qui est pourtant moins chere que la FRANCE 
pour le materiel electronique !!! ) 


Pour vous renseigner sur les prochaines commandes du club ou sur les 
performances du systeme joindre le president : Mr DELANNAY { cf. infra ) 


Vous pouvez de plus venir voir tourner ’la bete’ au club a BORDEAUX 


Les adherents desirant entrer en contact avec d’autres adherents de 
leur region peuvent ( et doivent ...) demander d’etre inscrit sur une 
liste prevue a cet effet . Plusieurs personnes y sont deja ... ne vous 
faites pas attendre , il est temps de sortir de votre isolement 


Pour ceux qui auront fait les frais de l’exellent programme 
MAILING LIST de Mr POELS ils pouront beneficier de cette liste sous cette 
forme ( si vous desirez acheter ce programse profitez des achats groupes 
du club : cela diminue les frais annexes de transfert d’argent a 
l’etranger ) 
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IDC Bordeou: 


Le club 1.D.C. Bordeaux rappelle brievement les differents avantages 
procures a ses adherents : 


— La LOGITHEQUE : 


Elle regroupe des centaines de programmes dont l’acces est libre 
-— NON - limite a un simple echange car , les personnes qui n’ont pas 
la chance d’avoir deja des programmes et donc n’ont rien a echanger ne 
pouront jamais rien avoir , c’est un cercle vicieux !! 


Son acces est gratuit , seul est demande le remboursement des frais d’envoi 


A titre informatif y ont aussi ete inclus des programmes vendus 
par un autre club DAI : DAINAMIC . Ces programaes portent en commentaire 
13 mention ?VENDU PAR DAINAMIC’ car afin de ne pas nuire aux bonnes 
relations entre nos clubs ces programmes ne sont pas distribues 


C’est dans le simple but d’informer nos membres de l’existance de ces 
logiciels que leur nom et leur but ont ete decrits 


En effet la plupart des clubs tirant leur fond de roulement des 
logiciels qu’ils commercialisent il serait injuste de les en priver 
d’autant plus qu’il vous est possible aussi a vous de commercialiser vos 
oœeuvres en nous les envoyant 


Toujours dans le but d’aider ses adherents le club 1.D.C. Bordeaux ne 
se limite pas a la simple information mais effectue le regroupement de vos 
commandes et se charge du paiement à l’etranger : vous remboursez le club 
en Francs FRANCAIS !! 


— La BIBLIOTHEQUE : 


Elle regroupe , classes selon leur Theme plusieurs dizaines de 
kilogrammes de documents , articles , ecrits originaux , sur votre chere 
machine , ce qui a represente des semaines d’effort de classement mais 
permet maintenant un acces tres rapide sur une somme d’information tres 
impressionnante , grandement facilitee par la liste decrivant le contenu 
general , la source d’information et le nombre de pages de chaque sujet 


À 13 #aniere de la logitheque l’acces a cette information pour nos 
adherents implique le remboursement des frais de photocopie et d’envois 


— Un service TIRAGE DE LISTING : 


Afin d’aider nos adherents n'ayant pas d’imprimante mais desirant 
etudier de plus pres certains programmes le club lui propose , a prix 
coutant , l’envoi du listing demande !'! 


Pour ne pas submerger le bureau une limitation a 15 programses par 
mois et par adherent , ainsi que 50 photocopies , a ete decidee 
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Dans un prochain numero ( je commence a prendre trop de place ! }) 
je vous parlerais de nos activites 7’HARD’ : petit atelier de reparation 
regroupement de personnes interessees par les interfacages les plus divers 


Pour finir donc je vous rappelle que l’adhesion s’eleve a : 150 FF 
pour l’annee 1985 et comprend l’acces a tous nos services ainsi que 
l'abonnement a DAICLIC 


Si par cas certains membres d’ 1.D.C. ou d’un club associe desirait 
adherer afin de profiter d’un de nos avantages , leur adhesion serait 
reduite , en raison de leur abonnement deja effectue a DAICLIC , a 100 FF 


— Adresses des differents responsables de 1.D.C. Bordeaux : 


Fresident et Tresorier : VICE PRESIDENT ET SECRETAIRE : 
Mr DELANNAY BRUNO Mr LAFARGUE GASTON 

Res. Les ACACIAS B+ E5 2 HAMEAU DE LISSANDRE 

Avenue DE SAIGE 33 150 CENON 


33 600 PESSAC 


Tel : (56) 45-87-70 Tel : (56) 86-35-74 


Responsable de La SECTION *HARD’ : 
Mr PAUPERT FRANCOIS 

893 ROUTE DU PEGLE 

40 000 MONT DE MARSAN 


Tel : (58) 75-56-83 
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DIPAD/ANT 


Certains disent que les revues d'informatique 
sont trop austères. Nous avons donc pensé pouvoir vous 
dérider quelques instants au cours de votre lecture en 
vous proposant un texte moins ardu, enfin nous 1° espé- 
rons, pour vos méninges et votre intelligence ( artifi- 
cielle et superficielle). 


Connaissez-vous par exemple celle de l1' arbre 
(programmatique évidemment) qui arrive dans un hardware 
store et y rencontre sa bonne amie la stack (pas encore 
overflou heureusement) !7 


11 lui dit: "Eh. ma vieille, barre-toi récur- 
sivement. J'ai vu dans le coin un pattern à listes. 
garbage collector et redresseur de tores i de ferrites) 
à ses heures... 


Sur ce, passe une variable { alphanumérique 
s.v.p.), compler:ée, mais trés excitante, qui avait de 
plus complètement perdu la mémoire, {RAM si je me sou- 
viens bien'. 


Elle se laisse draguer par le vieux FASCAL, 
algolike sur les bords, et mal rafraichi en pius. Mais 


il lui envoya des signaux spéciaux par le bus ‘de don- 
nées, je crois) et lui expliqua le système (d'exploita- 
tion). 


Et il advint ce qui devait arriver, (c'était écrit dans 
son programme) et que vous avez tous deviné, du moins 
je 1 espère. Enfin, ils vécurent trés heureu: et eurert 
beaucoup de petites puces... 


Moralité : 10 HIT OK NOT TO BIT, THAT IS THE CUESTION ! 


CALE Bruxelles 
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PETITE ANNONCE 


L'ordinateur, qui s'est de plus en plus démo- 
cratisé au point de devenir domestique, engendre aussi 
le stress. Lorsque l'ordinateur refuse de coopérer, on 
peut désormais lui administer quelques volées de coups 
pour soulager ses frustrations...,sans endommager 1 'ap- 
pareil. 


11 suffit en effet pour cela de posséder un 
Bit Banger. compatible avec toutes les marques (même le 
DAI). Ce nouvel élément ne doit d'ailleurs pas être in- 
tégré à l'ordinateur puisqu'il est réservé à un usage 
externe. 


De quoi s'agit-il? Tout simplement d'un mail- 
let à tête de mousse et à manche de plastique souple. 
Four Mr. Gordon Smith, Frésident du C.A.1.D., importa- 
teur de ce nouvel article, le Bit Banger exercerait é- 
galement un effet thérapeutique bienfaisant sur les su- 
jets souffrant de névrose induite par les jeux sur mi- 
cro-ordinateurs... 


Four tous renseignements et prix, prière de 
s'adresser directement à la rédaction de la revue. 


Ecrire un programme en HASIC pour résoudre le 
petit problème suivant : 


Le nombre 1 possède une propriété particu- 
lière. Si on élève chacune des deux tranches de deux 
chiffres de ce nombre au carré, la somme des carrés ob- 
tenus n'est autre que le nombre 12355 lui-même. O.K.7 


On a bien, en effet , 12 * 12 + 
. Figé cette fois? 


EBon' Eh bien un autre nombre de quatre chif- 
fres présente cette particularité. Lequel? 


Envoyez vite votre réponse à Jacques MOENS, 
Clos Fontaine des Ducs, 6 à 1310 LA HULFE (Belgique). 
La première bonne réponse vaudra à son auteur de rece- 
voir une cassette bourrée de programmes. 

Ceci n'est plus une blaque. Alors, tous à vos 
claviers! 


CS VCTEME 


COMMENT FONCTIONNE LE MICROPROCESSEUR 


Un programme se compose d’une liste d'instructions. Le 
microprocesseur possede une petite memoire de compteur ordinal ou il stocke 
l’adresse memoire sur laquelle il est en train de travailller. 


Le compteur ordinal contient l'adresse d’une case memoire. Le contenu 
de la case memoire est transcrit dans le microprocesseur (le contenu 
de la case memoire est intact) et le microprocesseur execute 
l’instuction. 

Une autre petite memoire appelee accumulateur recoit les donnees ou 
les resultats avant ou apres execution de l’instruction. Au cours de 
l’execution, le compteur ordinal est auto-matiquement incremente et 
pointe l’instruction suivante. 


Chaque case memoire contient 8 bits (1 octet) mais parfois le microprocesseur 
travaille sur 16 bit il a donc besoin de case memoires. Le compteur ordinal est 
alors incremente 2 fois. 


La structure complete du microprocesseur est la suivante (photocopie F.186). On 
y notera la presence de multiples registres BCDEH et L mis à la disposition de 
l’utilisateur. Ce sont des registres de 8 bits chacun pouvant etre assembles 
par paires BC DE ou HL pour former un ensemble de 16 bits. 


Le 8080 possede les instructions resumees sur les 2 pages suivantes; ]la 
premiere donne les mnemomiques le code hexa, la suivante donne le code 
d'instruction binaire et le temps exige par l’execution de chaque instruction. 


Le schema de la page est interessant mais l’informaticien n’a pas besoin de 
tout les renseignements qu’il comporte. On lui preferera donc le suivant plus 


pratique: 


retenue interm{diaire (carry aux.) 
paritt 
retenue (carry) 


mot d’{tat du programme PSW 
compteur de donnes secondaire 
compteur de donntes primaire 


pointeur de pile (stack pointer) 
compteur ordinal (program counter) 


L’accumulateur est la destination principale des instructions a un ou deux 
operandes. Une instruction doit d’abord charger l’accumulateur avant que le 
microprocesseur puisse effectuer une operation arithmetique ou logique. Les 
registres K,C,D,E,H et L sont d’un acces d’egale facilite, ils peuvent etres 
transferes dans n’importe quel autre registre, ou servir de deuxieme operande 
dans les 2 instructions a 2 operandes. L'utilisation n’est pas la meme pour 
tous les registres, il y a quelques petites differences entre HL et BCDE. 


Les registres HL constituent le pointeur principal de donnees du 8080, c’est- 
a-dire que c’est dans ces 2 registres que nous placerons l’adresse de la case 
memoire (16 bits) a utiliser. Le progammeur devra donc autant que possible 
adresser les cases memoires via HL. 
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S VS HEME 


Les registres BR C D et E servent d’accumulateur secondaire, la majorite des 
instructions a 2 operandes font intervenir une donnee comme dans l’un de ces 
registres. 11 y a quelques instructions pour lesquelles les registres R et C ou 
C et D contiennent l'adresse (16 bits) d’une donnee, mais ces instructions ne 
permettent que le transfert de donnee entre la memoire et l’accumulateur. Les 
registres B C D et E seront donc utilises pour stocker des adresses ou donnees. 


Les bits de condition sont au nombre de 5, ils portent sur les resultats des 
operations. Tous sauf le carry auxilliaire peuvent etre testes par le 


programme. 


Le carry (CY) est le neuvieme bit dans les operations arithmetiques. 11 
intervient dans la rotation. Il est mis a © par des instructions logiques. 


Le carry auxiliaire (AC) est la retenue intermediaire, c’est-a-dire celle qui 
peut se produire lors d’une operation arithmetique du quartet (4 bits) de plus 
faible poids vers le quartet de plus en plus fort poids. Il est mis a 1 
lorsqu'il y a retenue sur le 3e bit. 


Le bit de parite (P) est mis a un si le contenu de l'accumulateur a la suite de 
n’importe quelle operation logiques ou arithmetique ou logique. Il est mis a 1 
chaque fois que l’accumulateur contient un nombre negatif. 


ADFRESSAGE EN MEMOIRE 


Four adresser une case memoire, on peut utiliser un adressage implicite ou un 
adressage direct. Dans le cas de l'’adressage implicite on place l'adresse de la 
case memoire dans les registres H et L. Cette case memoire peut etre chargee 
dans l’accumulateur mais aussi les autres registres secondaires. Four 
l’adressage direct, il n'existe que quelques instructions. Elles operent des 
transferts entre accumulateur et memoire. 


Philippe RASQUIN, 
SAIVE (8). 
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UTILITAIRE : TABLES DE FORMES. 


Jusqu'ici, lorsque vous vouliez faire évoluer des formes sur 
votre écran,vous étiez obligé soit de le faire par des DRAW, DOT, 
FILL, soit de coder un à un vos formes en RAM puis de les reloger 
en RAM vidéo par un programme adéquat. Et à moins de passer par 
un logiciel graphique étudié pour, ce travail était pour le moins 
fastidieux. Que dire de plus si l’on voulait faire déplacer sa 
forme point par point ou meme l’agrandir ! 


Fini tout Ga ! Le petit utilitaire (147 octets) ci-joint 
règlera tous vos déboires. En effet, il permet : 
- le traçage d’une forme en mode texte,graphique,4 ou 16 couleurs 
- le stockage en mémoire de 127 formes au maximum 
- le déplacement point par point d’une forme 
- l’agrandissement de cette forme jusqu’à 255 fois. 


Tout cela avec le minimum de restrictions quant à l’entrée des 
données nécessaires. 


Vous coderez votre forme selon des ordres que vous donnerez 
comme à une tortue dans un LOGO, c’est-à-dire : 


trace et monte d’un point 
trace et descend d’un point 
trace et va à gauche d’un point 
trace et va à droite d’un point 
monte d’un point 

descend d’un point 

va à gauche d’un point 

va à droite d’un point 

fin de la forme 


MUMNNNnnn 


EDIJTUMEUN= 


ñ 
n 


Exemple : pour tracer un U renersé,la forme se codera comme suit 
#4 2e2= 3-7 VS 1 =AFF 
avec comme point de départ le coin supérieur gauche 


Cela n’est pas très compliqué, et en combinant les 8 ordres, on 
peut tracer toutes les formes possibles et imaginables ! 


Après avoir codé vos formes, il vous faudra les rentrer en 
n’oubliant pas le #FF final ! Repérez la première adresse les 
unes à la suite des autres (en commencant par l’adresse la plus 
faible) à partir de #390. 


Exemple : soient 4 formes dont les adresses de stockage sont : 
A1=#A70 A2=#B03 AS=#H47 A4=#406 
il faudra rentrer les adresses comme suit : 
#390 : #70 } Ai 
#392 : #3 } A2 
#394 : a AS 
#396 : #6 ] A4 
11 est évident que tout cela est valable quel que soit le nombre 


de formes que vous utiliserez à concurrence de 127 (maximal 
inclus). 
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Une fois tout cela fait, c’est le programme lui-meme qui se 
souviendra pour vous des adresses de vos formes. Il vous suffira 
de lui préciser le numéro de la forme que vous désirez... 

Etudions maintenant les procédures d’affichage : 


MODE TEXTE : 


Adresse | Fonction 


abscisse X4 de la forme 


#387 poids fort X4 toujours à © ici 
#38B ordonnée YZ de la forme 23 
#38C SCALE = agrandissement de la forme 255 
{normal = 1) 
#38E numéro de la forme à afficher 127 
#38F caractère de tracé de la forme 255 
(code ASCII) 
attention : 8,12 et 13 à éviter 
en plus : POKE #366,#C3 : POKE #367,#6A : POKE #368,43 
puis CALLM #2F0 
MODE GRAPHIQUE : 
Adresse | Fonction Maximal 


#386 poids faible abscisse X4 de la forme 

#387 poids fort " " XMAX 
#38B ordonnée YZ de la forme YMAX 
#38C SCALE (normal = 1) 255 
#38E numéro de la forme à afficher 127 
#38F couleur de la forme 25 
en plus : POKE #366,#78 : FOKE #367,4EF : POKE #368,#1E 


puis CALLM #2F0 


Les 3 POKEs supplémentaires (#366,#367,#368) nécessaires et 
spécifiques à chaque mode sont à refaire seulement si l’on change 
de mode ! 

De plus, le codage d’une forme peut etre utilisé indifféremment 
en mode texte et/ou en mode graphique ! 


Les seules restrictions de codage des formes seront de ne pas les 
charger entre les adresses #2F0 et #390 + (n # 2), n étant le 
nombre de formes utilisées. 


. la taille normale de votre forme telle que vous 
l’avez codée correspond à SCALE = 1 (POKE #38C,1) 
. Si vous voulez effacer une forme : 
- en mode texte : POKE #38F,32 
- en mode graphique : POKE #38F,20 


Remarques : 


Voici ci dessous le programme : 


#2FO :F5 PUSH PSW >SAUVE REGISTRES 
cs PUSH BC 
Ds PUSH DE 
ES PUSH HL 
3A8B03 LDA #38B >Y= (#38B) 
4F MOV C,A 
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#516 


#31F 


#34A 


#36 


220B03 


67 
: SABCOS 
328D03 


CASBOS 
FEO8 
CA6203 
C34CCi 
:CD6603 
oc 
C37103 
:CD6603 


: CD6603 


: 3ABDOZ 


SHLD #30B 
LHLD #390 
XCHG 

LDA #386 
MOV L,A 
LDA #387 
MOV H,A 
LDA #38C 
STA #38D 
LDAX D 
INX D 
PUSH PSW 
CPI 1 

JZ #34 
CPI 2 

JZ #351 
CPI 3 

JZ #358 
CPI 4 

JZ #35 
CPI 5 

JZ #34D 
CPI 6 

JZ #354 
CPI 7 

JZ #35E 
CPI 8 

J2 #362 
JMP #C14C 


DCX H 
JMP #371 
CALL #366 


LDA #38D 


>COULEUR= (#38F ) 


>No FODRME= (#38E ) 


>TABLE depuis #390 
>XB=(#386) 
>XH=(#387) 


>SCALE= (#38C) 
DREGISTRE INTERMEDIAIRE 


>1=MONTE+TRACE 
>2=DESCEND+TRACE 
>3=GAUCHE +TRACE 
>4=DROITE+TRACE 
>S=MONTE 
>6=DESCEND 
>7=GAUCHE 
>8=DROITE 
>sinon:FIN 

>1 

>5 


>2 
>6 


>s 
>7 


GRAPH SUBROUT 


>TEXT SUBROUT 
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3D DCR A 
CABOOS JZ #37F >SI FIN BOUCLE:NEXT DATA 
328D03 STA #38D 
F1 POP PSW 
F5 PUSH PSW 
C31FOS JMP #31F >SUITE BOUCLE 
#380 :F1 POP PSW 
C31603 JMP #316 >NEXT DATA 


"D2FO0 383 


02F0 F5 CS DS ES SA 8B 03 4F 3A 8F 03 47 11 8E 03 3A 
0300 SE 03 87 6F 26 00 19 22 OB 03 2A 90 03 EB 3A 86 
0310 03 6F 3A 87 03 67 3A 8C 03 32 8D OS 1A 13 FS FE 
0320 01 CA 44 03 FE 02 CA 51 03 FE O3 CA 58 03 FE 04 
0330 CA SF 03 FE 05 CA 4D 03 FE 06 CA 54 03 FE 07 CA 
0340 SB 03 FE 08 CA 62 03 C3 4C C1 CD 66 03 OC C3 71 
0330 03 CD 66 03 OD C3 71 03 CD 66 03 2B C3 71 03 CD 
0360 66 03 23 C3 71 03 78 EF 1E C9 61 EF 09 78 EF 03 
0370 C9 3A 8D 05 3D CA 80 03 32 8D OS F1 FS C3 1F 03 
0380 F1 C3 16 03 


PAGE O1 -- TABLES DE FORMES DEMO 
10 REM DEMO 

11 COLORG 0 1 35 

20 IF PEEK(#2F0)<>#F5 THEN PRINT "LE MLP N’EST PAS EN RAM !":STOP 
21 POKE #366,#78:POKE #367,#EF:POKE #368,#1E 

30 POKE #38E,1:REM 1 FORME 

3 POKE #390,#AO:POKE #391,#3:REM STARTADRESSE FORME 1 

32 MODE 2:G0SUB 1000 

33 GOSUB 2000 

3 GOSUB 500 

35 MODE 4 

36 GOSUB 500 

37 MODE 6 

38 GOSUB 500 

39 REM TOUT CE QUI EST FAIT PRECEDEMMENT 

40 REM EN MODE 4 COULEURS 

41 REM PEUT ETRE FAIT EN MODE 16 COULEURS !!! 

42 REM ET MEME EN MODE TEXTE: VOYEZ LA SUITE ... 

43 POKE #366,#C5:POKE #367,#6A:POKE #368,3 

44 MODE O:GOSUB 1000:POKE #38C, 1 

45 FOR 1%=0 TO 40 

46 1 POKE #38F,#20:REM SPACE POUR EFFACEMENT 

47 1 CALLM #2F0 

48 1 POKE #386,12+8:POKE #3BF, 12+65 

49 1 CALLM #2F0 

50 1 MWAIT TIME 10 

60 NEXT 

70 FOR J4=0 TO 13:POKE #38F,#20:CALLM #2F0 

71 POKE #38B,J2:POKE #38F,414+J%:WAIT TIME 10:CALLM #2F0:NEXT 
72 POKE #38F,#20:CALLM #2F0 

73 GOSUB 1000 

74 POKE #38C,2:POKE #386,16:POKE #38F,29:CALLM #2F0:POKE #38C, 1: CALLM #2F0 
75 CURSOR 0, 23: END 
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323 REM #358B = Y 


324 REM #386-#387 = X 

325 REM #38C = SCALE (MIN=1) 

326 REM #38F = COULEUR 

327 REM #38E = No FORME (MIN=1) 

500 FOR 14=1 TO INT((XMAX-8.0)/19.0) 

501 1 POKE #38C,1%:POKE #386,8#1%:POKE #38F,21+(1% MOD 3):CALLM #2F0 
502 NEXT 

503 WAIT TIME 100 

504 RETURN 


1000 POKE #386,8:POKE #387,0 

1010 POKE #38B, 0: RETURN 

2000 RESTORE 

2005 C2=#3A0 

2010 READ AZ:1F AX<O THEN POKE C%,#FF: RETURN 
2011 POKE CZ,A%:C4=C4+1:GOTO 2010 


2019 DATA 3,3,3,3,3,3,3,3 
202 DATA 1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4,1,4 
2021 DATA 4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2,4,2 
2022 DATA 3,3,3,3,3,3,3,3,3,3 

2023 DATA -1 


Pour vous familiariser avec les adresses, voici un petit pro- 
gramme de démonstration en BASIC. 


Tapez le programme DEMO et sauvez le sur une cassette ou une 
diskette, ensuite suivez la procédure décrite ci-dessous. 


Procédure de chargement : #UT <return> 
>Z3 <return> 
pour déplacer les --> >S29B xx-00 yy-30 <curseur gauche? 


HEAP pointeurs >GDEB8 
>R (charge TABLES DE FORMES LM) 
>B 


#LOAD (charge DEMO) 


Pascal JANIN 


Vous vous souvenez sans doute du programme BALONS du premier 
DAICLIC ? ... Mais si, page 41 ... 
Pour ceux qui ont eu le courage de rentrer les 18 lignes qui le 
composaient,ils ont pu admirer la qualité de cette petite démons- 
tration graphique... oui mais ! L’affichage des BALONS est quand 
meme un rien trop lent, non ? 


Pour y remédier, tapez en BASIC : 


. 150 FOR 1 = 0 TO R STEP 2 
.. 151 (supprimer la ligne) 
. 152 A=SR(1#(2#R-1I)) 
. faites RUN .…. 
et comparez la rapidité !!! 


Le Turbo DAliste, Pascal JANIN 
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PAGE 01 -- TRAMES 


10 REM . Surfaces E sl ë | C 
15 REM 


20 REM . Jean-Paul Delahaye 

25 REM . arr.pour DAI F.Gilson 

27 REM . ....... Fevrier 1985 

28 REM 

29 PRINT CHRS# (12) :COLORT 5 15 O O:MODE O:CLEAR 3000 

30 FOR 1%=0 TO 21:CURSOR 18+1%,1S:PRINT CHRS (29) :NEXT 

31 FOR 1%=1 TO 3 

32 PRINT TAB(18) ;CHRS (29) ; TAB(39) :CHRS (29) :NEXT 

35 FOR 1%=0 TO 21:CURSOR 18+1%,11:PRINT CHR$ (29) :NEXT 

35 CURSOR 21,13:PRINT "TRAMES EN FOLIES" 

40 CURSOR 25,1:PRINT "Un programme de Jean-Paul Delahaye" 

45 PRINT TAB(2S);"Arrange pour DAI par F. Gilson"; 

47 WAIT TIME 150:PRINT CHRS$(12) 

59 CURSIR 11,15:PRINT "Vous pouvez choisir parmi quelques realisations" 

52 PRINT TAB(11);"au choix de 1 a 8." 

54 PRINT :PRINT TAB(11);"Si vous voulez creer des figures, tapez 9" 

55 INPUT * Selection ";SELX 

60 COLORG 0 14 13 10: MODE 6 

65 NX=0:PAz0.0:E1=0.0:E220.0 

70 XA=0.0:YA=0.0:XB=0. 0: YB=0. 0: XC=0. 0: YC=0. 0: XD=0. 0: YD=0.0 

75 GN SELZ GCTO 80,90, 100,110, 120, 130, 140, 150, 6000, 160 

sc N4=6:PA224.0:E1=2.0:E2=1.0:C0L/=14 

85 XA=190.0:YA=24.0:XB=2352.0:YB=95. 0: XC=190.0:YC=2T58. 0: XD=40. 9: YD=160. 6: 
GOTO 296 

90 NA220:PA=3.0:E1=2.0:E220.0:COL%=13 

Lt] XA=112.0:XB=534.0:YB=70.0:XC2224.0: YC=210.0: YD=140.0:GOTO 200 

109 NA=42:PA=2.5:E1=2.0:E2=0.0:COL#=10 

105 XA=160.0:XB=320.0:YE=120.0:XC=180.0:YC=240.0:YD=140.0:GCTO 200 

110 NX=52:PA=2.0:E1z2.0:E2=0.0:C0L%=14 

115 XA=168.0:XB=3355. 0: YB=112.0:XC=168.0:YC=274.0:YD=112.0:GOTO 290 

120 NA220:Ph23.0:E122.0:E2=0.G:COL%=13 

125 XA2126.0:XB=252. 0: YB=46. 0: XC=188.0:YC=180. 0: YD=80.0:GOTO 209 

130 N4=36:PA=2.0:E1=1.0:E2=0.0:C0L2=10 

55 XA=114.0:XB=330. 0: XC=220.0:YC=116.0:YD=116.0:G0T0 200 

140 NX=20:PA=2.0:E1=2.0:E2=1.0:COL%=14 , 

145 XA=200. 0: YA=0. 0: XB=300. 0: YB=10. 0: XC=229.0: YC=100. 0: XD=20. 0: YD=70. 0: GOTO 
200 


150 N4=19:PA=2.0:E122.0:E2=0.0:COLX=15 
155 XA=168.0:XB=332. 0: YB=130.0:XC=1668.0:YC=210.0:YD=130.0:GOTD 200 


1860 REM N%= :PÂz :Elz :E2= 

165 REM XA= :YA= :XB= :YB= :XC= :YC= :XD= :YD= 
199 REM 

200 M4=336/PA:DIM MAX (M2) ,MI% (MX) 

300 FOR 1420 TO MX:MAX(1%)=-1000:MI%(1%)=10 
400 NEXT 

500 FOR 120.0 TO NX 

510 XP=(I14XD+(NZ-1) &XA) /NX 

52 YP= (IXYD+(N%-1) 2YA) /NX 

530 XQ=(12XC+(NX-1) #XB) /NX 

540 YO= (IRYC+(NX-1) XYB) /N% 


550 IF E3=1.0 THEN Y=1/N4:GOT0 560 

EEE] X=1/N4 

560 11=INT(XP/PA) : 12=INT (XQ/PA) :G=SGN(12-11) 
600 FOR J=11 TO 12 STEP G 

610 IF E3=1.0 THEN X=(J-11)/(12-11):GOTO0 629 


615 Y=(J-11)/(12-11) 
820 ON SELZ GOSUB 5000,5100, 5200, 3300, 5400, 5500, 5600, 5700, 1, 3800 
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FAGE 02 -- TRAMES 


630 XF=INT (J4PA) 

640 YF=((J-11)4Y0+(12-J)4YP)/(12-11)+23 YF=INT (YF) 

700 IF J=11 THEN X14=XF:Y1%=YF 

710 1F E2=1 THEN 760 

720 IF YF>MIZ(J) AND YF<MAZ(J) THEN X1%=XF:Y1%=YF:GOTO 800 
74ù 1F YF2>MAZ(J) THEN MAZ(J)=YF 

750 IF YF<MIZX(J) THEN MIX (J)=YF 

760 DRAW X124,Y1% XF,YF COL4:X1%=XF: V12%=VF 

800 NEXT 

900 NEXT 


1000 1F Ei=1.0 THEN 8000 

1010 ES=1.0:E1=1.0 

1620 UU=XD: XD=XE: XB=UU 

1050 UU=YD: YD=YB: YB=UU 

1050 GOTO 500 

5000 =-80.04SIN(2.O4FIÉ#Y)4SIN(FIRX) 
5090 RETURN 


5100 REM 2=F{X,Y) 

5110 X7=2.04X-1.0:Y7=2.04Y-1.0 

5120 DI=X74X7+Y74Y7 

5130 IF DI<1.0 THEN Z=S0OR(1.0-D1):GOTO 5150 
5140 Z=0.0 

5150 Z=106.047 

5190 RETURN 

5200 2=68.OXSIN(2.O4PIYY)ASIN(S. OKFIHX) 
5290 RETURN 

5500 DI=16.0+{((X-0.5)#(X-0.5)+(Y-0.5) #(Y-0.5)) 
5310 Z=140.G4CD5(4.04xD1)#EXF (-D1) 

5390 RETURN 

5400 X7=2.04X-1.0:Y7=2.04Y-1.0 

AA=SOR (1.0-X74X7) à (ARS (Y7)+G.5) : BR=0.74S0R(1,.0-Y7#Y7) # (ABS(X7)+0,5) 
1F BB:AÀA THEN AA=EE 

2=64.0XAA 

RETURN 

X7=X:Y7=Y:K7=0.0 

K7=K7+1.0 

5520 IF K725.0 THEN Z=0.0:RETURN 

5530 U7=INT(3.O4X7) : X7=3.04X7-U7 

5540 V7=INT(S.O8V7):Y7=3.08Y7-V7 


5550 IF U7<:1.0 OR V7<>1.0 THEN 5510 

5560 Z1=0.5-ARS(X7-0.5):Z=0.5-ARS(Y7-0.5) 

5570 IF 21<Z THEN Z=21 

5580 Z=(900.0/3.0*%K7) 42 

Ss9û RETURN 

Sséco X7=2,04ABS(X-0.5) :Y7=2. 04ABS(Y-0.5) :M7=X7+Y7 


5610 MB=INT (4, 04M7) : M9=4, 0KM7-MB 

5620 Z=0.0:1F M9>0.8 THEN Z=(M9-0.8) 45.0 

5650 Z=17.04(2+M8) 

5690 RETURN 

5700 DI=8.O4S0R { (X-0.5) 2 (X-0.5)+(Y-0.5) 4 (Y-0.5)) :Z=50.04C0S (D) 
5790 RETURN 


5800 REM Sous-programme de definition de la fonction 

5610 REM Z=F(X,Y) pour vos programmes 

5999 RETURN 

600û PRINT CHR$ (12) ;:COLORT 9 14 © O:COLORG 9 14 10 11:MODE 6A 
éü10 COL%=11:C01%=10:C02%=14:FAS1%=5: FAS24=10 

60z0 DRAW 60,50 280,50 COL4:DRAW 80,30 80,200 COLZ 

6030 X14=1B0-FAS2%: Y14=60-FAS1%4: XX14=100-FAS2%: YY14=140-FAS1% 
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PAGE ©3 -- TRAMES 


6040 2%=180+PAS2%: Y2%=60-PAS24: XX22=260+FAS24: YY22=100-PAS2Y 
6050 FOR 1%=1 TD 9:X1%=X1%+PAS2%: Y14=Y1%+PAS1 4: XX12=XX14+PASDE: YY12=VYY12+ 
PAS1% 


6060 DRAW X1%,Y1% XX1%,YY1Z COLX:NEXT 

6070 FOR 1%=1 TO 9:X2%=X2%-FASZ%4: XX22=XX24-PAS2%4: Y24=Y24+PASZL: YY2U=YY2 + 
PASZY 

6085 DRAW X2%,Y2% XX2%, YY2% COLZ2:NEXT 

6090 X4=76:X1%=78:PASS4=5: V{=180:FOR 1421 TO 20: X4=X4+FASTZ: X12=X1L+PASSY 

6100 DRAW X2,V24 X12,YX COLZ:NEXT 

6110 X2=76:X1%=78:V4=140:FOR 1%=1 TO 4: X4=XL+PASTZ: X14=X14+PASIZ 

6120 DRAW X%,Y% X1%:Y4 COLX:NEXT 

6130 X2=76:X1%=78:Y2=100:FOR I4z1 TO 36: X4=XX+PAST 4: X12=X14+PASTZ 

6140 DRAW X7%,Y4 X1%,Y% COLZ:NEXT 

6150 X2=76:X1%=78:Y4=60:FOR 14=1 TO 20: X2=XX+PASTL: X12=X12+PASTZ 

b1éû DRAW X%.V2 X12,YX COLX:NEXT 

6170 YA=46:V1%=48: X%=100:FOR I4=1 TO 18: Y4=Y4+PASIL: Y14=Y14+PASIA 

6180 DRAW X%,Y% X%.Y1% COLZ:NEXT 

6190 YA=46:Y1%=48: X4=180:FOR 1%=1 TO Z:Y4=YA+PASSZ: Y14=V1%+FASTY 

6209 DRAW X2,V% X2:Y1% COLX:NEXT 

6210 YA=46:Y1%=46: X%=260:FOR 1%=1 TO 10: Y4=YL+PAST4: Y12=Y1%+FASTX 

6220 DRAW X%.Y4 X%,Y1% COLX:NEXT 


6239 XX=73:Y4=180:GOSUR 6260: X%=73:Y4=140: GOSUR 6260: X4=73: Y4=100:GOSUE 6269 

6240 2%=73:YA=60:GOSUR 6260: X%=73: Y4=40:GOSUB 6260: XX=101:Y4=40:GOSUE 6260 

250 X2=185:Y%=40:GOSUE 6260: X2%=258: YX=40: GOSUR 6260: X4%=265:Y4=40:GOSUE 6260: 
GOTO 6270 


6260  DRAW XA+1,Y4 X4+3,Y% CO12:DRAW X%+1,V4+6 243, VZ+6 CO12:DRAW XL VA+1 X2 
YA+S CD1%:DRAW X2+4,VA+1 X2+4,Y2+5 CO1%:RETURN 

6270  X4=68:Y#=180:GOSUBR 8300: X4=61:Y4=140:GOSUR 6300: X4=173:Y4=40: GOSUB 6300: 
GOTO 6310 | 

6300  DRAW X2,V% X2+2,V% CO12:DRAW X2+1,V% X2+1,Y4+6 CO1%:DOT X2,V#+5 CO12: 
RETURN 

6310  X=61:V2=180:GOSUB 6400: X2=66: Y2=60:GOSUE 6400:G0T0 6410 

6400  DRAW X2, VX X2+4,Y% CO12:DRAW X2+1,V4+1 X%+4,V2+4 CO1%: DRAM XU+1,V4+6 XU+ 
3,V4+6 CO12:D0T X2,Y4+5 CO1%:DOT X%+4,V4+S CO1%: RETURN 

6410  X4=251:Y4=40:DRAW X2,YX X4+3, VX CO12:DRAU XX, VA+é X4+3,Y4+6 CD1%: DRAM 
XA+1,VAES XL+4,VA+é CO14 

6420  DRAW X%+1,V%4+3 NU+3,V2+3 CD1%:DRAW XX+4,V4+1 X2+4,Y2+2 CO12 

6430  X4=94:VY=40:DRAW X2,YA+2 X2+4,Y2+2 CO1L:DRAW X2+3, VX X4+3,YZ+6 CO1%: 
DRAU XL, V2+3 X2+2,V2+5 CD1% 

6340  X=b4:YA=140:DRAW X4+1, V2 XL+3,V% CO12:DRAW X%,VA+4 X243,V2+4 CO1%:DRAW 
XL YA+é X2+4,Y4+6 CD1% 

6350  DRAW XL+4,V2+1 X2+4,V4+3 CO1%:DOT XX, V4+1 CO1%:DOT X%,V4+S CO1X 

6460  X4=178:Y4=40:DRAW X4+2,V2 X4+2,YH+2 COL: DRAW XL+2, V+3 XU+4,V2+S CD1%: 
DRAW X2,VA+6 X4+4,Y4+6 CO1% 

6370  XA4=66:Y4=100:DRAW X%+1, V2 XL+3,YX COL: DRAM X4+1,VH+T XU+S,VU+3 COI%: 
DRAW X2+1,V4+6 X%+3,V#+6 CD1% 

8480  DRAW X2,V4+1 X2,VA+2 CD1%:DRAW X2,VA+4 NU, VA+S CO1X:DRAW XU+4,Y%+1 X2+4, 
VA+2 CD12:DRAW X2+4,VA+4 X2+4,V2+5 CO1X 

6500  X4=185:Y4=52:DRAW X2,V2 KZ, VA+5 COZ2X:DRAW X2+4, VX X4+4,V2+5 CO2% 

8510  DRAW X%+1,Y4+2 X2+3,V2+2 CO2%:DRAW XU+1,Y4+6 X2+3,VZ2+6 CD2% 

6520  X4=263:Y#4=100:DRAW X2,YX X4+3,Y% COZ4:DRAW XL, VA+é X4+3,Y4+6 COZ%: DRAW 
XU+ZVUL+S XU+S, VA+S CO2% 

6530  DRAW X24+1,V24+1 XU+1,V2+S COZL:DRAW X2+4,Y2+1 X2+4,V2+2 CO2%:DRAW X%+4, 
Va+4 X4+4,V2+5 CO2% 

6540  X4=183:Y2=180:DRAW X2,V%+1 NZ, VL+S COZ22: DRAM X2+1,V2 X2+3,Y2 CD22: DRAW 
X2+1,VA+6 X2+3,VA+6 CO2% 

8550  DOT X4+4,V4+1 CO22:DOT X4+4,V4+5 CO2% 

6560  X4=98:YA=145:DRAW X2,VZ XL+3,VX COX: DRAW X2,VZ+6 X2+3,Y2+6 COZ%X 

6570  DRAW X2+1,Y2+1 X4+1,V2+5 CO2%:DRAW X%+4,V4+1 X%+4,V2+5 CO2% 

6580  XX=52:YA=47:DRAU X2,VÉ+1 X2+4,V4+5 CO2%: DRAM X2,V2+5 X2+4,Y4+1 CO2X 
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FAGE 04 


6590 
ééG 


é61ü 
6700 
6710 
6720 
6730 
7000 
7005 


7010 


7020 
7G25 
7050 
7055 
7040 
7045 
7050 
70ëéc 
7065 
7070 
7080 
716G 
7110 
7115 
7120 
7156 
7140 
7150 
7160 
8000 


8010 


8020 


8500 


——  TRAMES 


DOT XX,Y4 CO2%:DOT X4+4,Y4 COZ%:DOT XZ,Y4+6 C02%:DOT X%+4,Y2+6 CO27% 
X2=78:Y4=20:DRAW X4+2,Y4 X4+2,Y4+2 CO2X:DRAW XX,Y4+5 X2+2,Y4+5 CO2%: 
DRAW X2+4,Y4+5 X4+2,Y2+3 C027 

DOT X%,Y4+6 CO2%:DOT X4+4,Y4+6 CO2% 

CURSOR 32,3:FRINT "XA = 170 YA = 20" 

CURSOR 5,2:PRINT "Valeurs des coordonnees XB = 300 YH= 60" 

FRINT TAR(5);"de l'exemple represente XC = 170 YC = 210" 

PRINT TAB(32);"XD = 40 YD = 150 SPC"; 

CALLM #D6DA 

PRINT CHR$(12);:PRINT TAR(10);"A la ligne 160 les variables a utiliser 
sont" 

PRINT :FRINT TAR(3); "NX ==> Nombre de lignes desirees (exemples 10 
20....60)" 

FRINT TAR(3);"FA ==> Finesse du dessin de Z a 20 (2 = fin, mais lent) "; 
CALLM #D6DA:FRINT CHARS (12) 

PRINT TAB(3);"E1 ==} Lignes en paralleles ==>1 en quadrillage ==>2" 
FRINT TAE(3)3;"E2 ==; Les parties cachees sont dessinees =>1 sinon =:0" 
CALLM #D6DA:FRINT CHR$(12); 

FRINT TAR(7);"A la ligne 165 les variables à utiliser sont..." 

FRINT TAR(7)3;"{XA) (XH) (XC) (XD) (YA) {YE) (YO) (YD)" 

FRINT TAR({7);"Il n'est pas necessaire d'utiliser toutes les" 

FRINT TAEi7):"coordonnees, referez vous aux exemples de 1 a 8"; 

CALLM #D6DA:FRINT CHARS (12); 

PRINT TAK(7);"Flacez maintenant votre formule ligne 5800 a 5990." 

FRINT TAR(7);"Four faire touner votre programme, " 

FRINT TAR(7); "RUN ensuite repondez à Selection ? par 10" 

PRINT TAR(7) 5" SE 
CALLM #D6DA: MODE O:PRINT CHR$ (12 

CURSOR 23,12:PRINT "BON AMUSEMENT" 

CURSOR 40,3:PRINT "EDIT 160-165" 

PRINT TAB(40);"EDIT 5800-5990" 

END 

X4=10:V4=0:DRAW X%4,V4 X4,Y4+6 COLX:DRAW X%,Y2+3 X2+2,Y24+3 COLZ:DRAW X%, 
VA+b X4+4,Y4+6 COLX:DRAW X4+1,VX X%+4,Y% COLX 

X4=17:DRAW X2. V4 X2,Y4+6 COLX:DRAW X4+4,Y2 X4+4,Y4+é COLZX:DRAW X%+1,Y2+ 
5 X2+4,Y/+1 COLYX 

X2=24:DRAW X%,V4 XZ+3,Y4 COLX:DRAW XZ,Y4+6 X2+3,Y4+6 COL4:DRAW X%4+1,Y2+ 
1 X%+1,Y4+5 COLZ:DRAW X4+4,Y%4+1 X4+4,Y%+5 COLX 

GOTO 8500 
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39,2| 


max. 30 
{max.1.181 ) 


HARDWARE _ : Adaptation d’un clavier professionnel pour le DAI. 


ERIC NEVE  ’’S.EL.S.’? pour D.A.I.C. 25.04.1985 
25 Hoogstraat 1512 DWORP 
Tél. (012 / 380.35.81 


Enfin une touche professionnelle et un rajeunissement de notre 
DAI préféré. Après de multiples consultations de documentations, 
j’ai choisi un beau Clavier Professionnel dé(at)tachable compor- 
tant 87 touches (eh oui, 87 !'), de la marque connue : PREH. 


11 est encodé 8 Bits //+1 Strobe, avec répétition automatique 
à l’appui prolongé. 
11 est commandé par un processeur du type 68705 P3 (MOTOROLA). 
La frappe est si agréable que l’on perd très vite l’habitude du 
clavier original ! Naturellement, entre ce bel engin et le DAI,il 
faut un Schtroumpfeur qui les relie l’un à l’autre, c’est une 
interface qui interprète les codes ASCII et les adapte à l’entrée 
du DAI,en simulant électroniquement l’appui sur les touches. 
Les codes de conversion (environ 185) se trouvent logés dans une 
Eprom. Une autre petite interface plaçée dans le clavier prolonge 
l'impulsion de strobe. 
Sur les 87 touches 80 sont actives, il en reste donc 7 pour une 
programmation ultérieure de mots, par exemple 1F,SPC.GOTO, GOSUE, 
DIM, etc,mais cela nécessite une interface à rajouter au premier, 
ce sera un deuxième step. 
J’ai également ajouté un RESET, branché un deuxième shift direct. 
le HOLD du processeur, une touche pour SH+DEL à utiliser avec 14, 
1B, 1C, 1D, etc pour utiliser directement les caractères 
accentués avec le traitement de texte FWP. 
L’autorépétition des touches est moins rapide que celle du DAI : 


En changeant les touches de place et en modifiant l’Eprom de 
l’interface,il est facile d’obtenir un AZERTY. Avis aux amateurs! 


Comme mon programmeur d’Eproms était chaud, j’en ai profité 
pour changer la Rom des caractères par une Eprom de 4Kb pourvue 
de 2 jeu de caractères à mettre à l’écran : 
le & (94);6 (123);è (125);:ç (92):à (64) et à (124). 


Un SWITCH permet la sélection du jeux de caractères,original/new. 


Le prix brut du clavier est en principe 7.800 FB + 19% de TVA 
ce qui est un prix unitaire mais il y a moyen de baisser les prix 
en groupant les commandes et l’interface + cables + connecteurs 
coutent environ 1.500 FB (également prix unitaire). 

440 
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Les Grandes ” DfAilcouvertes. 


Tout DAliste a déja été confronté, souvent après de longues heures 
d’utilisation, à des problèmes de surchauffe entrainant des 
désagréments divers voire un blocage du DAI, comble de tout cela 


arrive toujours au mauvais moment. 
La solution décrite ci-dessous vous aidera à résoudre ces problèmes. 


La solution qui m’a été suggérée par Alain Mariatte, consiste en 
l’installation d’un ventilateur de ’petite” taille à l’intérieur du 
DAI sous la grille d’aération. Ce ventilateur (voir les caractéristi- 
ques ci-dessous) est particulièrement silencieux, il coute 121 FF 
(prix mi-février). 


ETRI 
99 XM 


Caractéristiques : Nom 
cavsséssaseoeseees Modèle 


CORTE ET 


Numéro 99 XM 01 81 /000/ D 
Alimentation 208-240 V” 50/60 Hz 
Puissance 6/5 W 

Impédance Protected 

Dimension 90 x 90 x 30 mm (environ) 


Adresse du fabricant : 8 Rue Boutard 
92200 NEUILLY FRANCE 


Pour qui est un rien bricoleur, le montage ne présentera aucune 
difficulté. Nous présentons ici deux possibilités concernant l’implan- 
tation du ventilateur selon l’existence dans le DAI d’un ’grand’ 
radiateur ou l’inexistence de celui-ci. 

Le but des explications qui suivent n’est pas de donner LA marche à 
suivre pour le montage mais UNE marche à suivre parmi d’autres, à vous 
de l’adapter avec les moyens du bord. 


ler cas : le DAI est équipé d’un ’grand’ radiateur 

fprès avoir enlevé le ’capot”’ du DAI, démonter le couvercle protégeant 
l’alimentation, ensuite dévisser le radiateur (Attention aux 
composants qui y sont reliés). 

Une fois détaché, scier le radiateur en deux parties égales (Atention 
à ne pas trop abimer le revetement noir). 


dé— scier “ei 


Jusqu'ici rien de bien sorcier mais les choses sérieuses ou plutot 
périlleuses vont commencer. Après avoir dévissé tous les composants 
attachés à la ’cage’ de l’alimentation (coté carte vidéo), placer les 
deux radiateurs ainsi obtenus,à chaque extrémité de cette cage et 
percer très précautionneusement des trous (à travers le radiateur et 
la cage) afin de pouvoir les fixer solidement sur la cage. 

REM vous pouvez déja utiliser les trous existants sur le radiateur . 
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’Relier’ les extrémités ’des’ radiateurs afin de consolider le tout, à 
l’aide d’une ’barre’ et de deux petites cornières (par exemple des 
pièces de mécanos) (voir dessin ci-dessous). Prendre garde à ne pas 
plier les radiateurs en forant les pour fixer les cornières. 


A ce stade, les opérations les plus délicates sont terminées, il 
reste à fixer le ventilateur sur l’armature ainsi construite à l’aide 
de petites cornières (voir dessin ci-dessous) et à brancher son 
alimentation sur l’interrupteur du DAI ( si le ventilateur ne doit 
fonctionner que lorsque le DAI est allumé ) ou sur un interrupteur 
extérieur ( indépendant de celui d’allumage du DAI) . 


interrupteur 


2e cas : le DAI ne possède pas ce ’grand’ radiateur 

Dans ce cas, il n’est plus possible d’utiliser le radiateur comme 
support, il faut trouver un substitut par exemple à partir d’une 
’chute’ d’époxy avec une face cuivrée (servant à la fabrication des 
circuits imprimés). 

Scier la plaquette en trois partie : deux morceaux assez longs 
(environ 20 x 3 cm) et un morceau plus petit (environ 9.5 x 1.5). 
Souder le petit morceau sur un grand afin de former un L. 


Face cuivres 
#“ soudu re 
| . LA 
> Fsce cuivree 


Ensuite fixer cette plaque sur la ’cage’ de l’alimentation (du coté 
des prises) à l’aide de vis et d’écrous (Les mêmes recommendations de 
prudence du premier cas pour le forage sont à observer). 

Une fois fait, fixer la seconde plaquette, à la bonne distance, sur le 
couvercle de la cage’ et forer les trous pour la fixation du 
ventilateur. 


Pour terminer, fixer le ventilateur sur le support ainsi construit 
et brancher l’alimentation. 


Et maintenant tous à vos outils, 


Fabrice Duluins pour D.A.I.C. 7 Avril 1985 
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HARCOPY DU MODE O SUR IMPRIMANTE. 


Ces deux petits prograsses vont vous persettre d’iapriser soit une 
fenetre, soit l’intégralité d’un écran en MODE 0. 


Vous avez certainement déjà tous un peu ” joué” avec des tableaux de 
chiffres (ou de texte) en MODE 0. Les données du tableau s’inscrivant petit-à- 
petit à l’aide de l’instruction CURSOR du BASIC. Si vous isprisez directement 
sur papier chaque donnée dans l’ordre d’arrivée à l’écran, vous aurez sur 
votre feuille une suite de chiffres qui n’aura plus rien à voir avec un 
tableau. Pour éviter cela, l’idéal serait donc de pouvoir copier toute la page 
texte sur iaprimante quand toutes les données sont inscrites à l’écran. Il 
faudra donc réaliser une scrutation de l’écran ! 


Pour trouver l’adresse d’un caractère inscrit à l’écran, voici la 


foraule à utiliser : 
A$ = CHR$ ( PEEK ( #BFE7 - À $ #86 - 2 & CURSX ) ) 


On met le caractère à trouver dans A$, l’adresse #BFE7 étant l’adresse la plus 
haute des caractères (CURSOR 0,23), Aë#86é situe la position Y du point à 
trouver (A étant le nombre de ligne à soustraire à partir du haut de l’écran 
pour obtenir la position Y voulue et #86 étant l’espace entre chaque ligne.), 
24CURSX situe la position X du point recherché. 


Voici maintenant deux application de cette foraule : 


Routine 1 : Une fois tout l’écran scruté et mis dans LIGNE$(x), la routine 
css imprime tout l’écran. (lignes 1120-1150) 


Cette séthode n’est pas très rapide sais elle a certains avantages : 
en modifiant les coefficients de la boucle FOR/NEXT (ligne 1040), vous pouvez 
faire une copie d’une partie de l’écran, c’est-à-dire que vous n’etes pas 
obligé de copier tout l’écran quand vous n’avez besoin que d’une seule partie 
de celui-ci sur papier. 


Routine 2 : La routine 2 est un peu plus astucieuse, mais comporte une 
soso... restriction : vous etes obligé de copier tout l’écran sur papier. 

Cette routine scrute toujours la ligne supérieure de l’écran et puis 
l’ieprime directement en-dessous de l’écran (et sur papier !). Avec le 
scrolling du DAI, tout l’écran remonte d’un cran et le programme rescrute la 
première ligne de l’écran (qui est en fait la deuxième de l’écran précédent) 
et l’imprime en dessous et ainsi de suite... 


Cette seconde routine est beaucoup plus rapide que la première, du 
moins pour toutes les imprimantes qui ont un mini buffer d’une ligne comme, 
par exemple les EPSON, car on ne perd plus de temps à l’iepression. 
L’imprimante ne ’ralentit” plus le DAI puisque son buffer d’une ligne imprime 
la dernière ligne de l’écran tandis que le DAI rescrute la première. 


Les deux routines expliquées ici sont simples et faciles d'emploi, 
elles peuvent s’intercaler comme sous-routines dans un programs, elles ne 
sont pas longues, leur rapidité est acceptable, elles peuvent copier des 
fenetres et elles fonctionnent sur toutes les iaprisantes (ce dernier point 
n’est pas à négliger car il existe d’autres routines d’hardcopy MODE O0 en 
langage machine #ais ces dernieres ne ‘tournent’ que sur certains types 
d’imprimantes et ne sont pas plus rapide que la routine 2). 


Ces routines peuvent certainement etre améliorées, si vous pouvez 
faire mieux, écrivez-nous, le sujet reste à approfondir ! 


Marc _Vander meer sch Four LD.A.I.c. 
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UIOITAIRE 


Cstilihiliiiiiliiitiiili;l;;;;););] 

### HARD-COPY sur ieprisante ### 

### ##+ 

Li 11 sous-routine 1 LEE] 

LL] Li] 
RARRANNENSNNNNNENNNIIAENNANIANNN 

### Marc VANDERMEERSCH LEE] 

### pour DAlclic ### 

REM HAHNSAANOANSNANSSENTANIENTNNANNA 

REM #t4 Affichage de l’ecran a copier 

LIST 

6OSUB 1000 

PRINT “Alors ??? ca marche non ???* 

END 

REM #%# sous-routine HARD-COPY 

CLEAR 2000:DIM TEXT$(24.0) 

ADRYZ=RBFE7 

ESP2=#86 

FOR CURSYÆ=23 TO O STEP -1 

LIGNE$="" 

FOR CURSXX=0 TO 59 

A7=23-CURSY% 

LIGNES$=LIGNES$+CHRS (PEEK (ADR4-AXIESPX-28CURSX%) ) 
NEXT CURSXX 

TEXT$ (AZ) =LIGNES$ 

LIGNE$="":NEXT CURSYX 

PRINT CHR$(12):PRINT “Pressez SPACE’ pour l’iapression" 
POKE #131,0 

CALLM #D6DA:FOR TZ=0 TO 23:PRINT TEXT$(TX):NEXT TX 
POKE #131,1:RETURN 


ÉÉELEELE 


REM SHANANNNANNNIANANENSNNANNANNANNE 
REM ### HARD-COPY sur iaprimante ### 


REM ##4# Li] 
REM ### sous-routine 2 Li: 
REM ### LE) 
REM WAHNHNMMMMNNENANENNNNNNNANNNENNNA 
REM ### Marc VANDERMEERSCH L EL] 
REM ### pour DAlclic ### 


REM RHNHNANNNNASNRSNNANSENNANHANNNÉ 
REM $%4 Affichage 

LIST 

PRINT "Et maintenant, copions ! Quelle vitesse !!!" 
GOSUB 1000 

PRINT "Plus rapide, n’est-ce-pas 777" 
END 

POKE #131,0 

ADRL=#BFE7 

FOR CURSYZ=23 TO O STEP -1 

LIGNE$="" 

FOR CURSXZ=0 TO 59 

LIGNE $=L IGNE$+CHRS$ (PEEK (ADRX-22CURSX%) ) 
NEXT CURSXX 

PRINT LIGNES 

NEXT CURSYZ 

POKE #131,1:RETURN 
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MEMOIRE CRAN 


MODES 5, 6, 5A et 6A 


1) Organisation de l’ecran 
1) +*itx MODES 5 et 6 #xi 
L'ecran est divise en 256 lignes et 336 colonnes. 11 y a toujours 2 octets qui 


contiennent l’information pour 8 points. Ceci entraine que pour une ligne on a 
besoin de (336/8)42 = 84 octets afin de pouvoir representer les 336 points. 


0..7 8..15 … 328..335 

255 BFER/BFEA RFE9/EFO..7 8..15 … 328..335 
255 BFEB/BFEA BFE9/EFO..7 8..15 … 328..335 
255 BFER/EFEA BFE9/EFO..7 8..15 … 328..335 
255 BFEB/EFEA BFE9/EFO..7 8..15 … 328..335 
255 RFEB/BFEA BFE9/BFO..7 8..15 … 328..335 
255 RFEB/BFEA BFE9/BFO..7 8..15 …. 328..335 
255 BFEB/BFEA BFE9/EFO..7 8..15 … 328..335 
255 BFEB/BFEA BFE9/EFO..7 8..15 … 328..335 
255 BFER/EFEA BFE9/EFO..7 8..15 … 328..335 

255 BFEB/BFEA BFE9/RFE8 EF99/EF98 

254 EF91/EHF90 ERFSF/BF8E BFSF/BFSE 

253 EFS37/BF36 BF35/BF34 BEES/BEE4 

66F9/66F8 66F7/66F6 6647/6466 

1 669F/669E 669D/669C 664D/664C 

O0 6645/6644 6643/6642 65F3/85F2 


11) #it MODES SA et 6A #t* 


L’ecran ne donne plus que les lignes 0 a 211. 


0..7 8..15 … 328..335 
211 BFER/BFEA BFE9/EFES8 EF99/EF98 
210 EF91/EF90 RFBF/BFB8E BFSF/BFSE 
2 7671/7670 766F/766E 761F/761E 
1 7617/7616 7615/7614 76C5/78C4 
0 7SEHD/75BC 75BE/75BA 756H/756A 


111) #+#x MODES 5, 6 / SA, 6A #44 


À gauche et à droite de ces octets se trouvent encore deux autres octets (ce 
qui fait B points ) qui ne sont pas accessibles par le basic. La ligne © dans 
le MODE 5 ou 6 est alors la suivante : 


- 2 octets de controle :6649 , 46648 
octets pour le bord 16647 , 6646 
— 84 octets pour la ligne :6645 -> 65F2 
- 2 octets pour le bord :65F1 , 65F 


! 
LS] 


L’ecart entre deux lignes est de 90 decimal. 
L’adresse a laquelle est code un point de coordonnees (x,y) peut alors etre 
determinee par la formule suivante : 

adr:=#6645-INT(x:/8)42 + 901y 
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Le point en question est alors code en adr et adr-1. 


2) COMPOSITION DES DEUX OCTETS 


1) #*x MODE 6, 6A #21 
La composition des octets sera expliquee a l’aide d’un exemple. 


Analyse des deux octets #6645 et #6644 qui contiennent les points 0 a 7 de la 
ligne © dans le MODE 6. 
Apres execution des instructions : COLORG 8 © 15 4 


DOT 0,0 © 
DOT 3,0 15 
DOT 6,0 4 
l’occupation des octets est la suivante : 
7654321 0 - valeur octet 
01234567 - position du dot 
adr.:#6644 := #82 = 10000010 
adr.:#6645 := #12 = 00010010 
088F 68848 - information de couleur 


(F correspond a 15) 


Un bit qui vaut ’1’ dans un des deux octets entraine que la position du dot 
correspondant a ce bit est mis en couleur. La couleur de ce point est fonction 
de l’octet dans lequel le bit a ete mis a ’1*. 

Si l’instrction est COLORG Ci C2 C3 C4 on retrouve la couleur: 

C1 si les 2 bits correspondant au dot en question valent ’0’ (couleur 
de fond). 

C2 si le bit dans l’adresse basse est mis a ‘1° et que le bit de 
l'adresse haute vaut 0’ (bit 7 de #6644 vaut ’1° et bit 7 de #6645 vaut ?’0° => 
couleur 0 en 0,0). 

C3 si le bit dans l’adresse basse vaut 0’ et que le bit de l'adresse 
haute vaut ‘1’ (bit 4 des deux octets pour le dot 3,0). 

C4 si les deux bits valent ‘1° (bit 1 pour le dot 6,0). 


11) #44 MODE 5.5A +84 


Comme exemple on va choisir en mode SA, les points 0 a 7 de la ligne 0. Dans le 
mode 4 couleurs les deux octets contiennent l’information concernant la couleur 
et la position. Dans un mode 16 couleurs, chaque octet joue son role. L’octet 
d’adresse basse contient l’information concernant la couleur tandis que l’octet 
d’adresse haute contient uniquement l’information concernant la position. 


L'exemple suivant : COLORG 8 O O © 
MODE SA 
DOT 6,0 © 
DOT 3,0 à 
DOT 6,0 0 


choisit comme couleur de fond le gris (8). Tous les points dessines 
apparaissent en noir (0). L’occupation de #75RC et #75ED est alors la suivante: 


7654321 0 - valeur du bit 
adr.:#758BC : = 
adr.:#75HD : = 0 
7 - valeur du dot 
Tous les bits mis a ’1’ de l’octet d'adresse elevee determinent comme couleur 
celle qui est fixee par les 4 bits de poids plus fort de l’octet d’adresse 
basse. La couleur qui represente les ‘0’ de l’octet d’adresse plus elevee est 
celle qu’on trouve dans les 4 bits de poids plus faible de l’octet d’adresse 
basse. 
De cette reflexion, on peut facilement deduire que l’on peut au maximum 
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retrouver 2 couleurs pour representer les 8 points. 11 reste a remarquer que 
l’occupation des deux octets aurait pu etre la suivante: 


adr.: #75BC := #80 = 8 0 
adr.: #75BD := #D=01101101 


11 est facile de voir que l’effet aurait ete le sene. 


Texte original en allemand: Stefan GOLLER. 
Traduction: Andres KURT (Octobre 84), 
BUTGENBACH (B). 
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SAUVEGARDE DE L’ECRAN GRAPHIQUE 


S=SSSS=2=22=2==z2=222=2= 


Vous avez certainement déjà désiré avoir la possibilité 
de sauver momentanément un dessin de l’écran graphique pour 
différentes raisons. 

Soit parceque vous désiriez changer de mode notamment 
pour éditer une partie d’un programme, soit que vous vouliez modifier 
une partie du dessin avec la possibilité de le récupérer sans l’avoir 
détruit, soit encore que vous envisagiez carrément un programme 
d’animation. 


11 y a plusieurs solutions à ce problème, mais toutes 
n’ont pas le meme domaine d’application. 


1. Solution évidente: Sauver la zone d’écran en question sur cassette 
à l’aide de la commande WRITE. Ceci offre la possibilité d’un 
stockage quasi illimité (suivant le budget cassettes...) mais c’est 
très lent! 


2. Solution proposée: Il s’agit de la routine ci-dessous. 


Cette routine recopie le contenu d’une zone mémoire vers 
une autre et peut d’ailleurs servir à tout autre chose que des 
sauvetages graphiques. La rapidité de cette méthode est telle qu’une 
certaine forme d’animation peut etre envisagée. 

Supposons que nous voulions déplacer le contenu de la 
zone À vers la zone B. Le principe est de: 

- Placer l’adresse de début de la zone À en #303/4302. 

- Placer l’adresse de début de la zone B en #301/#300. 

- Placer la taille de À en #305/#304. 

- Exécuter la routine par CALLM #320. 


Exemple d’utilisation: 


Le petit programme BASIC ci-joint permet de sauver et de 
récupérer un graphique réalisé en MODE 4. 
- L’adresse la plus basse de l’écran en MODE 4 est #A894. 
- La taille de la mémoire écran en MODE 4 est: #BFEF-#A894+1=#175C. 
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2#L. 
PAGE O1 


001 ORG :320 
002 0320 C5 PUSH B 
003 0321 DS PUSH D 
004 0322 E5 PUSH H 
005 0323 F5 PUSH PSW 
O06 0324 F3 DI 

007 0325 2A0003 LHLD :300 
008 0328 44 MOV B,H 
009 0329 4D MOV  C,L 
010 O32A 2A0203 LHLD :302 
011 O32D 54 MOV D.H 
012 032E 5D MOY E,L 
013 032F 2A0403 LHLD :304 
014 0332 1A LDAX D 
015 0333 02 STAX B 
016 0334 03 INX BE 
017 0335 13 INX D 
018 0336 2 DCX H 
019 0337 E600 ANI 0 
020 0339 E4 ORA H 
021 033A ES OA L 
022 033E C2320% JNZ :332 
023 033E FE EI 

024 O33F Fi POF PSW 
025 0340 Ei POP  H 
026 0341 D1 POP D 
027 0342 Ci POP B 
02B 0343 C9 RET 


029 0344 


>D320 343 
0320 CS DS ES F5 F3 24 00 03 44 4 
0330 04 O3 1A 02 03 13 2E Eë6 O0 B 
0340 Ei Di Ci C9 


60000 PRINT CHR$(12) 
60010 FRINT “J’espere que vous avez bien charge le programme“ 
60020 PRINT “ROUTINE DE DEPLACEMENT D’OCTETS'!" 

60030 FRINT :PRINT "Sauvetage ou Recuperation (S/R)7?7"; 

60040 AZ=GETC:1F AZ=0 THEN 60040 

60050 IF AZ=ASC("S") THEN A14=#300:A2%=#302:G0T0 60080 

60060 IF AZ=ASC("R") THEN A14=#302:A2%=#300:GOT0 60080 

60070 GOTO 60040 

60080 PRINT CHR$(A%) 

60090 PRINT : INPUT “Adresse du transfert"; ADR4:PRINT 

60100 ADR1%4=INT (ADR4/256. 0) 

60110 ADR2/=ADR4-ADR1%4256 

60120 POKE A1%,ADR2%:POKE A1%4+1,ADR1% 

60130 POKE A27,#94:POKE A24+1,4#A8 

60140 FOKE #304,#5C:POKE #305,#17 

60150 MODE 4 

60160 CALLM #320 

60170 END 
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REM QUADERS 

MODE 5 

FILL 0,0 XMAX,YMAX 0 

Q%=RND (15.0) +1.0 

CZ=RND (80.0) +15.0 

S1%=S0R (CZ"2.0/2.0) 

S2%=S1% 

XZ=RND (XMAX-S1%-70. 0) 

YZ=RND (YMAX-S2%-70. 0) 

B%=RND (XMAX-S14-X4-15.0)+15.0 
AY.=RND (YMAX-S2%-Y4-15.0)+15.0 
IF GETC<>0.0 THEN 10 


X2,Y4 XA+B2,YX Q% 
X4+B4,Y2 X2+B2,Y4+A% OZ 
XA+B4, VA+AX XL. YL+AX OX 
XL YA+AL XL, YA OZ 
XL, YAHAL XA+S1%, VL+AL+S22 O4 
X4X+BL,VA+AX X2+514+B4, Y4+A4+52% Q%X 
X2+B24,Y2 X2+S1%+R%,Y4+S2% OZ 
X2+S12,V4+A%+52% XL+S1X+ER%4, YA+A02+S24 OZ 
XA+S12+8%4, VX+S2% XL+S1L+R2, YVL+A4+52% O%X 
FOR 1Z4=X%+S1% TO X4+514+B% STEP 4 
DOT 1%,Y4+S2% Q% 
NEXT 


FOR 1%=Y4+S2% TO YA+S2%+A4 STEF 4 
DOT X%+S1%,1% Q% 
NEXT 

O FOR 1Z%=X% TO X2+S1% STEP 3 
DOT 1%,(52%/S1%)2(1%-X2)+Y4 Q% 
NEXT 
RETURN 


TE 
. a 5 


LS 


a+ LS 
ES OO ee Ce 


LE 


L'ORDINATEUR,ETALON DE FREQUENCE 


Prenons un cas de figure soase toute banal:eordu de l'inforsatique, 
passionné d'électronique,vous venez d'achever la construction 
d'un circuit qui doit osciller sur des fréquences précises et 
qu'il ne "resle” qu'à règler.Bien entendu,asateur chevronné, 
vous disposez-outre du fer à souder-d'un générateur ,d'un 
oscilloscope,d'un fréquenceaètre (mais de perforsances aodestes, 
bien entendu !), 

Késulletsun réglage aédiocre, à moins que vous ne vous rappeliez 
à tesps que votre ordinateur peut vous etre d'un précieux secours ! 


I.LE CALVAIRE DE L'ELECTRONICIEN PEU FORTUNE. 


La "bete" à réègler est un MODEM (1) aux norses françaises.l1] 
lui faut donc générer deux couples de fréquences sinusoidales 
980-1180 Hz et 1650-1850 Hz signalant respectivenent les 1 et 
Ü logiques des sodes appel et réponse.Rien à voir avec les 
U.H.F. (2) ce sont des basses fréquences aisésent aanipulables 
‘sense un sagnélocassette les restitue sans peine,une ligne 
téléphonique à fortiori ‘').QOUI,MAIS il faut $se caler au Her: 
près (il vaudrait aieux,en fait !) et c'est là que les ennuis 
coasencent:] 'oscilloscope,aeme avec base de tenps étalonnée 
i3),graticule 14) gradué en unités de teaps,est incapable de 
faire sérieusement la différence entre 980 et 1000 Hz par 
exesple.C'est là bien sur que le fréquencesetre intervient. 
OUI,MAIS ces charmants appareils,souvent prévus pour lire des 
fréquences aslronosiquement hautes (des centaines de aégaherz) 
sont lamentables du coté. des basses valeurs.Le aien,dont je 
lairsi pudiquement le noe,s une résolution MINIMALE de 100 Hz 
(et pas de fonction périodesètre (5),ce qui aurait pu aséliorer 
les choses).keste à procéder par coaparaison de fréquences, 
c'est-à-dire observer sur l'oscilloscope ce qu'il est convenu 
d'appeler une figure de LISSAJOU (6).La fréquence-étalon passe 


pur l'entrée horizontale de l'oscilloscope,la fréquence à 
COspar er pat l'entrée verticale. L'égalité se traduit 
thécriquement par une ligne orientée à 45 degrés et en réalité 
per un cercle ou une ellipse (à cause des déphasages).Si 
l'ellipse esl rigoureusement stable,les deux fréquences sont 
rigoureusesent identiques,sinon l'ellipse tourne autour d'un 


axe  verticsl à une vitesse qui est fonction de l'écart de 
fréquence iun tour par seconde correspond en gros à un écart 
de 1 Hz2).Cels suppose une fréquence-étalon parfaitesent stable 
et de hauteur exactesent connue,toutes choses qu un générateur 
bon marché est incepable de fournir ,hélès ! 
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F. inconnue 


JI.LE SECOUR 


Beaucoup d' 
ou plusieur 
des fréquen 
stabilité 9q 
à noler:l i 
en HERZ ip 
etre virg 
chiffres s 
une précisi 
performance 


Un  écueil 
rectanquliair 
el soul : 


de Lissajou 


Donc,il faut 
suppression 


OSci llo 


ellipse sur l'éran 


 F. étalon (générate) 


Obtention d’une figure. de Lissajou. 


S DE L ORDINATEUR. 


ordinateurs domestiques sont maintenant pourvus d'un 
S générateurs sonores.Le DAI par exemple peut émettre 
ces allant de 31 Hz à 1 MHz (en principe),avec une 
ui est celle du quartz de son horloge.Foint précieux 
nterpréteur basic demande directement la fréquence 
«s de POKE s compliqués) dans une variable qui peut 
ule flottante.Four notre réèglage,et avec les six 
ignificatifs du DAI,il est donc possible despérer 
on de l'ordre du centième de Hz,ce qui est une belle 
l 

de Laille cependant:ces fréquences sortent en signaux 
es affectés de pics (résidus d'échantillonnage) 
igoureusement impropres à l'oblention d'une figure 
lisible. 


S'qnavx à la serbe “Sierée “ du DAI 


les convertir en sinusoides, ce qui s obtient par 
des harmoniques (filtre passe-bande Butterworth du 


2ème ordre.Ce nom est prétentieux,mais c'est simple à bricoler 1) 


Les amplis 


Entrée 


opérationnels sont là pour nous sauver (741,747,etc) 


R3 


Sorke 


Ra PEETTE TV LELELC ER 
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GAIN: Rs /28, 

BANDE PASSANTE: 2/R3.C 5 

FREQUENCE CENTRALE: UE CECI 7 Re /R) /2n 

{(R en Dhes,C en Farads,F en Herz) 

Prendre Ri=10#K3 (gain de 5) et R2:510 OÜhes pour le calcul 
et settre à Ja place une résistance ajustable de iKohas. 
Four aœa part,j'ai utilisé pour le couple 980-1180 Hz (Fo=1080) 
Risd,7k ÿ5R22510 Ohas;R3=247k3C=33nF 

et pour 1650-1850 Hz (Fo=1750) 

Ris12k;R2=510 DOhes;R3=120k;C=12nF 

et jai aonté chaque fois trois cellules de filtre en série, 
afin d'avoir un gain de 125 ile DAI "sort" environ 400 aV 
crete,et l'entrée horizontale de æon oscilloscope n'est pas 


très sensible). 
Tout ceci $se bricole en quelques ainutes sur une plaque d' 


expérisentation,et l'alimentation (+ et - 12 V) était prise 
directesent sur le eodes. 
Le rèéglige,pour une fréquence considérée,est ultra-siaple: 


injecter à l'entrée le signal à la fréquence voulue venant du 
DAI grace au “prograase" suivant: 

SOUND 0 0 15 0 FREQ(980):REM PAR EXEMPLE 

Kègler les ajustables de 1ikOhes pour un signal msaxieus en 
sortie de filtre.On obtient une sinusoide parfaite d'environ 
15 v crete,ce qui est plus que suffisant. 


III.UN REGLAGE EPOUSTOUFLANT 

Kestait d'abord à apprécier la qualité du calage initial du 
aoden au fréquencenètre.Donc,sortie aoden sur l'entrée 
verticale de l'oscilloscope,sortie DAI via les filtres sur 
l'entrée horizontale,et prograane suivant: 

10 ENVELOFE 0 16:REM ENVELOFFE No 6 AVEC VOLUME MAXIMUM 

2ù F=900 

3ù SOUND © 0 15 0 FREQiF):REM ENVELOFPE O,CANAL 0,S0ON NORMAL 


40 PRINT F 

SÙ FaF+]l 

éù 6070 36 

11 faut bien sur arreter le déroulement du progranme BREAK} 
dès Qu apparait l'ellipse sur l'oscilloscope (attentionicela 


va vite !), 

Résultat:calsge sur 937 Hz au lieu des 980 prévus.Hua ! 
Nouvesu prograane pour Île calage exact de cette fréquence: 
10 ENVELOPE 0 16 

20 INPUT"FREQUENCE: "3; F:PRINT 

30 SOUND 6 © 15 © FREQ(F) 

40 GOTO 20:REM ATTENTE NOUVEL INPUT,MAIS N'ARRETE PAS LE SON 

ñ ce stade,si le règlage ne peut ienobiliser cosplètenent 1’ 
ellipse,on peut AFPRECIER J'écart à l'accord parfait en entrant 
des valeurs déciaales puis centésiaales (980.1 puis 980.2 
ou encore 980.11 puis 980.12 etc.).Lle sens et la vitesse de 
révolution de l'ellipse renseignent sur la nature de l'écart. 
On peut considérer qu'une révolution toutes les aninutes 
constitue un assez joli résultat (et que l'oscillateur du 
sodes jouit d'une belle stabilité !) 

11 ne restait plus qu'à répéter 4 fois ces opérations pour 
avoir les 4 fréquences calées avec une précision de l'ordre 
du deni-Herz (aodea fonctionnant depuis une heure) 


Four le petite histoire,j'ai construit égalesent un autre 
moden,aux normes anéricaines,avec un circuit intégré spécialisé, 
prévu Pour donner directesent des fréquences exactes,grace à 
une hor loge interne à quartz.ls tentation était grande de 
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vérifier sun vwrxaclilude.Eh bivwn,sje suis Lres content de es 
deux aodens ! 


ALAIN MARIATTE, 


(1) MODEMsapparei utilisé pour connecter deux ordinateurs par 


le réseau téléphonique. 
(2U.H.F.sultra high frequencies,de l'ordre de centaines de 
MHzjtélévision,par exeaple. 

(3) BASE DE TEMPSsoscillateur règlable,gradué en teaps par 


division d'écran (1 sicro seconde /div. par exenaple) qui 
cossunde le balayage de gauche à droite du spot sur l'écran 
de l'oscilloscope.Ces graduations peraettent de calculer la 
fréquence du signal observé (F= 1 Î T secondes). 


(4) GRATICULE:graduations (divisions) de l'écran de l'’oscillo. 
(5) FERIODEMETRE:le fréquencemèitre donne la période du signal 
et non plus sa fréquence,c est-à-dire la durée (ou distance) 
qui sépare deux sonsets consécutifs d'une sinusoide,par ex. 


Cela perset une lecture plus 
précise des basses fréquences. 


(6) LISSAJOU:a sontré que la composition orthogonale de deux 
sSinusoides formait un segaent de droite incliné à 45 degrés. 


DONREMDATPR END 
LR QUES DATELIS 
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Le Club 1.D.C. Bordeaux vous presente un montage 
destine a soulager vos maigres Paddles : 


Interfacage DAI avec des joysticks type ATARI ou spectravideo 


Ces joysticks ont une difference fondamentale avec des paddles (Pdl), 
les directions opposees ( Droite-Gauche Haut-Ras ) agissent sur des 
interrupteurs et non sur des potentiometres. 


Mais peut etre est il bon de rappeler le fonctionnement de base du 
Pdl. Son mouvement fait varier une resistance { potentiometre ) situee 
electriquement entre le +5 Vec et l’entree Fdl consideree. 

Cette variation va de © ohms a 100 Kilo ohms faisant prendre a 


la variable Fdl des valeurs de 0 a 255. 


11 faudra donc simuler , pour que le montage reste compatible avec 
les programmes existants ,; un comportement identique à celui d’un Pdl 
n'ayant que trois positions { pour chaque dimension ). 


D'ailleurs, pour simplifier les schemas, nous ne considererons qu’une 
seule dimension : celle des X. 


Un petit tableau pour garder claires a l’esprit les relations entre 
la position physique du manche et la valeur associee de la variable Fdl 
ainsi que de la resistance : 


Fosition du manche = À GAUCHE AU MILIEU À DROITE 
Valeur de Fd1 = 6 125 255 
Valeur de la resistance = © ohm 50 Kohms 100 Kohms 


FERLISATIONS HARDURRE 
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Schéma des prises PDL et Joystick 
RE 


Entrée DAI 


1= +5 Vec 1. 
= entrée PDL y 2= 
3= entrée PM z 3= 
4= bonton (event) _. 
5= entrée PDI x 6- 
6= masse (cND) €- 


Sortie Joystick 


Haut 


Bas 


Gauche 


Droile 


bouton 


sortie 


Equivalent électrique de l’intérieur du joystick. 


O0 2- Bas 


Oo 37 Gauche 


O———0 Y= Droite 


O—0 6- Bouton (event) 


€= Sortie 


Brochaae du 4yO11 (vue du dessus) 


+SVee M3 BU 09e 


Le CI. CD40f1 comporte 


# portes “ Non-Et * (WAWD) 
d deux entrées. 


1234567 
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Pour avoir la valeur O0, il faut intercaler , entre l’entree FPdl 
et le + 5 Vec de la prise Pdl , une resistance nulle. 


Aucun probleme pour cela avec l’interupteur actionne par le joystick, 


quand on l’incline a gauche : 
il suffirait d'intercaler cet interupteur entre notre +35 Vcc et l’entree 


Fdi du DAI 


11 apparait donc que , pour faire prendre a l’entree Pdl la valeur 0 
i.e. a fond vers la gauche il suffirait de : 


Interface ” 1 
———— 


Joystick Interface Dai 


entrée PDL x 


+5 Vec 


Mais cette solution ne serait valable que lors du maintient de la 
manette à gauche , car pour les autres positions , le circuit electrique 
est ouvert et notre variable Fdl prend n’importe quelle valeur. 


11 faut donc que , lorsque le manche reste au milieu , une valeur 
approximative de 125 soit prise par la variable Fdl , ce qui correspond a 
l'introduction d'une resistance d'environ 50 File ohms entre le + 5 Vcc 
et l’entree Fdl 


On est donc contraint de modifier notre premiere * interface * 
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Interface” 2 


Joystick Interface Dai 
entrée PDL x 


+5 Vec 


Le resultat escompte est bien atteint : 


À lorsque le manche est au milieu , la resistance entre l'entree Fdl et 
le + 5 Vec du DAI , de 50 Kilo ohms , amene bien la variable 
Pdl a 125 et : 


sd lorsque le manche est vers la gauche : 
la resistance est court-circuitee et l’entree Fdl prend la valeur 0 


MAIS HELAS , tout se complique si l'on veut , en plus , pouvoir aller 
vers la droite { y en a quand meme qui ne sont jamais satisfaits !! ) 

Car pour avoir une valeur de 255 pour notre entree Pdl , il faudrait 
que la resistance de Sû Kilo ohms se transforme en 100 Kilo ohms lors 
de l’action de l'interrupteur du Joystick ‘vers la droite’ tout en 
respectant les S0 Kilo ohms lorsque le manche est au milieu et donc 
aucun interrupteur actionne. 


Ce serait chose facile avec des inverseurs au lieu d’'interrupteurs 
mais comme il n'en est rien ,; il va falloir en simuler un avec une porte 
logique ,; la plus connue , valant trois francs ( francais ! ) six sous 
{c'est pas le PEROU ... ) , s’alimentant grace au + 5 Vec de cette meme 
entree Fdl (ca consomme si peu) ,; j'ai nomme le * CD-4011 * 


” 


#” . 
Schéma pour une dimension 


©) = Gauche 


D+5Ve 
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- 11 decoule de ce montage que : 
--} Lorsque * AUCUN * interrupteur n’est actionne : 


Ÿ La resistance de 1 Mohm maintient un niveau logique © sur les 
deux entrees reunies de notre porte NON ET ( NAND pour les Anglophiles ). 


4 Donc sa sortie est a un niveau logique 1 ( +5 Vec ) qui est 
transmis à l’entree Fdl , via la resistance ‘’r’ et la diode D2 ( dont le 


role sera explique plus loin ). 


4 La valeur theorique de cette resistance ‘r’ est de 50 Kohms 
pour une valeur de la variable Fdl de 125. 


--: Lorsque l'interrupteur ‘ GAUCHE * est actionne : 


+ Comme precedement ,; la mise en parallele avec ’r° d’une resistance 
nulle , amene la valeur de la variable Fdl a ©. 


-- Lorsque l'interrupteur ? DROÏTE * est actionne : 


* L’entree de la porte NON ET est portee au +35 Vec = 1 logique , sa 
sortie passe donc à 0 Vec = © logique, donc aucun courant ne passe 


plus dans ‘r”. 


t Far contre le +5 Vcc est transmis a l’entree Pdl , via la 
resistance ‘KR’ et la diode Di. 


{ La valeur theorique de cette resistance ‘R' est de 100 Kohms 


pour une vaieur Fdl de 255. 


- Le ROLE de Di et D? 


an Di sert s empecher le 1 logique , present a la sortie de la porte 
NON ET , lorsque aucun interrupteur n'est actionne , de venir se reboucler sur 
l'entree de cette meme porte , via ‘r'-D2-}D1{-"R" , et ainsi faire basculer sa 
sortie a ©. 


+ D? sert a empecher le +5 Vcc , present lors de l’action de 
l'interrupteur ‘* DAGITE * , de venir se  court-circuiter avec le © Vec = 0 
logique alors present en sortie de la porte NON ET vis °R°-Di-:D2{-"r° , et 
einsi faire fumer notre pauvre porte ... 


TYX J'ai jusqu'a present parle de valeurs theoriques pour 
ns En effet , si son calcul est aise lorsqu'on veut obtenir une vaieur 
e 
125 --* ‘r° = S0 Kohms, il en va tout autrement dans la realite lors 
ue notre Joystick doit e<’adapter à des jeux differents dont les bornes de 
changement de direction ne sont pas lez memes .... 
+... où sont parfois farfelues! 
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11 nous faut donc passer de la notion de valeur ponctuelle a 
celle de plage d’action : 


Un EXEMFLE : 


GAUCHE NE ROUGE FAS DROITE 
Direction du mobile }---------------- (sense Lire Ÿ 
Valeur du Pdl 8 Om 1007 ?==mmmn] 25rmmmm—]5077mmmmmmmmnme 255 
Valeur Joystick : © - = = + de 100 a 150 * = = = 255 


Si pour un certain jeu , le mobile est fixe pour une valeur de Fdi 
comprise entre 100 et 150, pour le jeu suivant , il se peut que le concepteur 
ait prefere des bornes de 150 a 200 { ca se voit !! ). 

11 en decoule immediatement que , pour le calcul du ‘r' de notre 
montage si ’r° = 50 Kilo chms --; Fdl = 125 : notre mobile ira toujours vers la 
Gauche alors que le Joystick est au repos. 


Notre mobile ne sera jamais immobile ... ( sic ! ). 


Pour qu'il le soit il faudrait *r* aux alentours des 60 Kilo ohms. 


Avec un ‘r° fixe c'est impossible 


Pour parer aux differentes cas de figures rencontrables il suffit 
d'intercaler en serie : 


ture resistance ajustable de 33 Kilo ohms 


* une resistance fixe de 3 Filo ohms 


33 K ohms 33 FE ohms 


’r'FiXE , r° AJUSTABLE 


Ce qui permet de faire varier *r* de 353 Kilo a 66 Kilo ohms. 
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- La dimension fort reduite de l’ensemble des elements autorise leur 
montage à l'interieur du Joystick , en menageant un petit trou de 3 mm de 
diametre en face de chaque resistance ajustable ( une pour DROITE-GAUCHE, une 
sutre pour HAUT-HAS ) afin d'en faciliter le reglage. 


11 ne reste plus qu’a remplacer la prise sur le fil du Joystick par 
une fiche DIN , conformement aux plans joints, seuls 5 des 6 fils seront 
utilises : le "5" au +5 Vcc , le "3" pour les ‘X° , le "1" pour les ’Y', le 
“é" pour le ‘Fouton’ et , soit le "2" soit le "4" , pour la ‘Masse’. 


Cependant , cette modification ne permet plus l’utilisation de votre 
Joystick sur d'autres machines !! 


Aussi pour ceux qui empruntent un manche a un ami , il faudra faire 
les frais d'une prise ‘Male 9 broches’ sur laquelle se branchera le Joystick , 
afin de realiser l'interface dans une petite boite. 

hinsi le cablage du Joystick ne sera pas touche : 


À 11 faudra amener S fils , du DAI au boitier interface. 


À La ‘Masse’ ne servant qu'aux connections du CD-4011 , elle ne sera 
pas cablee sur le connecteur du Joystick. 


1 Far contre les $ fils du Joystick seront exploites conformement au 
schema de fin d'article. 


Cette derniere solution ,; un peu plus onereuse , est la plus souple 
et ne greve en rien l’avenir de vos Joysticks. 


Idee de l'Interface 1.D.C. Fordeaux 


L 
Prise idem # montage 
au Joystick # 1.D.C.Hx. 
L 


DAI avec sa 


Joystick avec sa 
prise & broches 


prise 9 broches 


éme es es 


Hu us 


J'espere que cette petite etude realisee par 
l'atelier du club 1.D.C. Bordeaux vous aura 
eclaire sur le sujet et je demande pardon 
aux * Afficionades * du fer a souder pour 
toutes les redondances à l’intention des 
neophites. 


LE FRESILENT : Delannay Bruno. 
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Schéma complet 


pour un Joys lichk à 2axes: x= Gauche- Droite 
y= Bas - Haut 


Icla nfixe 7 ajustable 
y 


© entree 
x ‘ajustable D°2 PDL ÿ 


pi ? fixe 


©) +5 Vec 


Bouton 
© (event) 
Nomenclature des composants. 

—————_—_—_—_—_—— 


-R1=R°4 »; 100Kka 

-Ro=Rs = 141Man 
-afüe-n'flxe=x 33Ka 

A ajuslable n'ajuslable= 33ka ajustable. 
-Ds= Di =DoxD2 = ce qui lombe sous lo main, par exemple la 1N914 
- IC1 = O1 (seulement 2 portes sur les 4 sont utilisées) 
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QUO SE 


LE PROCESSEUR ARITHMETIQUE AMD 9511 


Nous savons, grace au manuel, que le DAI peut etre équipé d’un 9511. Mais nous 
restons sur notre faim pour ce qui est de ses caractéristiques, de son 
emploi,... Le 9511 est un circuit intégré de deux fois douze broches. Il se 
loge à l’intérieur du DAI sur le support libre, à coté des ROM, son repère 
dirigé vers le connecteur X-BUS, comme le sont les ROM. 


Le manuel français (page 141) nous indique comment repérer la présence de ce 
circuit par un PRINT PEEK(#FBOO). S'il est présent, la réponse sera: DIVISION 
BY ZERO. Mais la lecture en #FB0Q est interdite (par HARD) et rendra notre PC 
bien malade, de telle façon qu'une action sur RESET est nécessaire pour tout 
remettre en ordre. Un autre point à signaler: certains de vos programmes en LM 
risqueront de ne plus fonctionner correctement (routines FADDLES, MATH,...). 
Faut-il donc modifier tous ces programmes ou sortir le processeur? Et bien 
heureusement non. 11 suffit de jouer sur l'indicateur #D4. 


POKE #D4,#00 “déconnecte" le processeur arithmétique 
POKE #D4,#7B le met en service 


Attention, ne mettez pas d’autres valeurs que celles indiquées au risque de 
devoir se servir du RESET. 


Four vous donner un idée, ce petit test: 


IMP FFT 

10 FOR A=0 TO 10000 
20 X=(voir tableau) 
30 NEXT A 

(MIN: SEC: CEN) 
SANS 9511 


TEMPS D’EXEC. 
AVEC 9511 


LIGNE 20 


FONCTIONS 


boucle vide 00:07:04 00:06:99 
ABS X=ABS (-253.7) 00:33:16 00:35:12 
ACOS X=ACOS (0) 00:54:46 03:18:11 
ALOG X=ALOG (0.3020) 00:48:26 08:19:70 
ASIN X=ASIN(1) 00:27:53 00:31:80 
ATN X=ATN (A) 00:52:52 06:01:58 
cos X=C0S (A) 00:47:78 07:15:58 
EXP X=EXP (-1) 00:51:53 07:32:82 
LOG X=LOG(A+1) 00:55:58 06:40:32 
LOGT X=LOGT (A+1) 00:56:42 07:10:50 
SIN X=SIN(A) 00:45:90 07:07:64 
SOR X=SOR (A) 00:28:06 02:49:59 
TAN X=TAN(A) 00:51:71 14:56:52 
1 x=A?35 01:15:40 13:24:80 
L X=A4A 00:31:38 00:49:51 
/ X=1/(A+1) 00:49:75 01:36:73 


Fabien FOJUD 
F-57 CREUTZWALD. 
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Dossier ASSENBLEUR 


I I 
1 MICROPROCESSEUR PART 1 I 
JANVIER 85 
————————— par HP LEGRY 
D.A.1.C.L.1.C F-59 DOUAI 
I 


Peut-etre etes vous desireux d’approcher ce mystere que represente la 
programmation en assembleur ou langage machine. 11 vous faudra alors utiliser 
avec beaucoup de dexterite les nombres binaires et les nombres hexadecimaux. 


Cet article vous aidera a comprendre et utiliser ces nombres. Ne 
negligez pas ces lignes si vous n’y connaissez rien. On ne peut pas programer 
en assembleur sans connaitre ces bases fondamentales. 


1 - DEFINITIONS 


A - LE BIT 


Le bit est un nombre qui ne prend que deux valeurs (0 ou 1). 
Vous en rencontrez tous les jours : l’etat d’une lampe (allume ou eteinte), ou 
celui d’une porte (ouverte ou fermee). 
Il est utilise pour caracteriser une variable qui ne prend que deux 
etats. Si j’associe la variable L a une lampe par exemple : 
L=1 si la lampe est allumee 
L=0 si la lampe est eteinte 


L est alors codee sur un bit 


B - LA BASE 2 


On utilise couramment en arithmetique la base 10 (decimale). Dix 
symboles sont necessaires pour definir ou coder un chiffre (0 a 9). 
Lorsque les dix symboles sont utilises, on “retient" une base et on reconence 
au premier synbole. 


+ Exemple : 


chiffre 5 : 5 
chiffre 15 : une base (10) +5 ssoit 1 X (10) +5 
par definition, on accole les deux chiffres : 1 5 
Le phenomene se reproduit lorsque le chiffre “æultiplicatif" de la base depasse 
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t Definition æmathematique : 


Un nombre peut etre decospose en bases. Cela peut paraitre evident car nous 
acquerons ce reflexe par un apprentissage des l’enfance. 
Nous allons decomposer un nombre ,6258 par exemple 


6 x (1000) + 2 x ( 100) +5 x ( 10) +8 x ( 1 ) 
& x (1073) + 2 x (1072) + S x (101) + 8 x (10”0) 


6258 


C - L’OCTET 


L’octet est un nombre de huit bits. Le microproceseur 80B0A 
travaille sur des mots de 8 bits. D’autres plus perfectiones utilisent des mots 
de 16 bits, voir de 32 bits. 

Un nombre de 8 bits peut varier, dans l’absolu, de 0 a 255. 

On calcule cette valeur par (2"n)-1, ici n=8 donc 2"8-1=255. 
Nous verrons, par la suite que le aæicroprocesseur peut se resever un bit pour 
le signe. 


D - L’HEXADECIMAL 


L’hexadecimal correspond a la base 16. Les syaboles utilises sont les 10 
chiffres et les 6 premieres lettres de l’alphabet. Un paragraphe est consacre a 
cette base. 


2 - LES CONVERSIONS 


Vous pouvez donc vous appercevoir que pour obtenir la valeur decimale d’un 
nombre, quelque soit sa base, il faut multiplier chaque chiffre de rang R par 
(base)"R et additionner le tout (R commencant a 0) . 


11 en est de meme pour la base 2, le binaire. Le chiffre 
correspondant au bit. 
Exemple : 1011 


NORÈTE. cesse see 


1 1 
ang Fons cansmaniese ns 3 0 
8 1 


2N0o 
Dem 


base = 2 


27R DCELEELE EESTI 


resultat : chiffre x 2°R 8x1=8 4x0=0 2x1=2 1xi=i 
somme : 8 + O + 2 + 1 =11 (decimal) 
donc 1011 (binaire) = 11 (deciæal) 


B - CONVERSION DECIMAL-BINAIRE 
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L’operation inverse est aussi aisee. Deux methodes : 


1 ere methode 


il faut chercher le plus grand facteur ( 1,2,4,8,16,32,64,128...) contenu dans 
le nombre a convertir 
exemple : 69 decimal 


plus grand facteur : 64 reste 5 
”“ " “ : 4 “ 1 
" “ “ 1 " 0 
donc 69 = 1x(2*6) + Ox(275) + Ox(274) + Ox(2*3) + 1x(272) + Ox(271) + 1x (20) 
69 = 1 0 0 0 1 0 1 
69 = 1000101 (binaire) 


Une division successive du nombre par deux permet, en relevant les restes,de 
retrouver le nombre en binaire 


6912 
1 == 
134,12 
I OO I—— 
1. 4,7 12 
I 1 I—— 
1 8 12 
1 O0 I--— 
1 412 
1 0 I-—— 
1 212 
Si on lit les restes de bas I O I---—- 
en haut, on trouve le resultat 1 112 
suivant : 1000101 1 Li 
comparez avec celui trouve plus haut ! ] 0 


C - CONVERSION BINAIRE-HEXADECIMAL 


11 est difficile et meme impossible de travailler directement en bits. On 
utilise alors la base 16 car elle presente la particularite d’etre directement 
accessible a partir du binaire et vice versa. 

pour convertir un octet en hexadecimal, il faut diviser le mot en deux 


fois 4 bits et convertir chacun d’eux en hexadecimal. 
exemple : 10110101 a convertir 


valeur binaire : 1011 0101 
valeur decimale : 11 05 
? hexa. 8 #E #5 
resultat $ #B5 
1D correspond a #1 HEXADECIMAL 
2D . #2 ki 
3D # #5 “ 
9D ® #9 
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10D 2 #A S 
11D L *B LJ 
12D ” #C a 
13D ds #D ” 
14D 9 *#E ” 
15D y #F 


3 - LES OPERATIONS BINAIRES 


Ces operations sont identiques a celles de la base dix. Si vous ne 
comprenez pas aisement, reportez vous a ces dernieres, analysez les et vous 
decouvrirez que tout cela est tres simple. 


A - ADDITION 


Oo 
+++ + 
+ © © 


Exemple 
(retenues) ...81 1111 1 6 
10110101 
+ 10101101 


= 101100010 


ES 


Carry : C’est le neuvieme bit. 11 indique si le resultat est 
a 8 bit ( >255 ) 


C - NEGATION 


Le signe “-" n’existe pas en binaire. Le huitieme bit indique si le 
nombre est negatif. Pour rendre un nombre negatif, il faut complementer l’octet 
a deux. C’est a dire remplacer les 1 par des 0, les 0 par des 1 et ajouter 1 a 
ce nombre obtenu. 


Exemple : -6 


D sssssasanensass 00000110 
Complement a 1 .. 11111001 
Complement a 2 .. + 1 
sorciers =11111010 


D - SOUSTRACTION 


La soustraction n’existe pas en binaire. 11 faut recourir a une astuce. 
A -B= a+ (-B) 
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On sait rendre un noabre negatif, voir ci-dessus. 


Exemple : 17 - 6 


17 cocossesss cu... 00010001 
6 cossosorsoosoere 11111010 
176 csscssoososce . 11101011 = 11 decimal 


E - MULTIPLICATION 


Cette operation est la meme qu’en decimal 


un n 
2000 


D Oscsssossosse see 1001 
X A sos sussese …. x 1011 
99 1001 
+ 1001 
+ 0000 
+ 1001 
= 1100011 = 99 decimal 


4 - LES OPERATEURS LOGIQUES 


Les operations logiques s’effectuent bit par bit. Lorsque l’on doit 
utiliser un tel operateur sur un octet, il faut "“operer" bit par bit, le Îer 
bit avec le ier etc...), sans tenir compte des autres. Voici les principaux : 


A - NON (NOT) 
Si PF = 1 alors NON-F = 

P=1 NON-F = 1 
B -— OÙ (OR) 
1OU1=1 C’est l’addition logique 
1OU0=1 La notation POUQ : P+0@ 
ODU1=1 
QODo=0 
C - ET (AND) 
1EÆT1=1 C’est la aultiplication logique 
1ET0=0 La notation P ET Q : P#Q : PQ 
OET1=0 
OETO=0Q 
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D - NON-ET (NAND) 


La combinaison du AND et du NOT 
P NAND Q = NON(P0Q) 


1 NAND 1 = © Vous pouvez remarquer que cette operation 
1 NAND 0 = 1 correspond a (NON-P) OR (NON-0) 

0 NAND O0 = 1 

© NAND 1 = 1 


E - NON-OU (NOR) 


La combinaison du OÙ et du NOT 
P NOR Q@ = NON(P+0) 


1 NOR 1 = © remarquez qu’elle correspond a 
1 NOR 0 = 0 (NON-P) AND (NON-Q) 

O0 NOR 1 = © 

0 nor O0 = 1 


10110110 10111101 

OÙ 10010100 ET 01101110 

= 10110110 = 00101100 

10010110 10010100 

NAND 10010010 NOR 10010110 

= 01101101 = 01101001 
P = 10010110 
NON-P = 01101001 


Ceci met fin a la premiere partie d’une suite d’articles concenant le 
microproceseur. La seconde traitera du microprocesseur lui-meme et de son 
architecture sans toutefois aller trop loin dans les details, inutiles ici, et 
que les mordus trouveront dans des livres tres compliques. 


HP. LEGRY, 
F-59 DOUAI. 
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CARTER SE US 


CHOPPINET Eric Leuville le 4 mars 1985 
27 rue Louis Pasteur 
4340 LEUVILLE SUR ORGE 
FRANCE 
Tel: (6) 084.60.87 


Cher ami DAliste, 


Je vous remercie de l’intérêt que vous portez à la carte EXTENSION-BUS. 


Le délai de livraison de la carte nue réalisée en trous métallisés est 
de 6 semaines après réception de commande. 


Four l’installation de la carte, il faudra vous armer: 
— d’un multimètre, 
— si possible d’un oscilloscope, 
— d’un grattoir pour couper 3 pistes sur la carte mère du DAI, 
-— d’un bon fer à souder (panne très fine !!!), 
— et de fil à wrapper. 


Pour la mise en service de la carte, il est prudent de le faire par étapes. 
xxx Souder toutes les petits composants 
(résistances,condensateurs,diodes,transistors.) 
(connecteur X-BUS, supports circuits intégres.) 
Lee: Apporter les modifications suivantes sur la carte mère: 
1. Couper la piste arrivant à ia pin 47 du X-BUS 
2. Couper les pistes arrivant aux pins 22 et 21 du X-BUS 
et relier ces pistes sans passer par le X-BUS. 
Z. Relier 1C44 pin 9 à la pin 47 du X-BUS (FOXX). 
4. Relier 1C45 pin 10 à la pin 18 du X-BUS (F9XX). 
5. Relier 1C45 pin 11 à la pin 22 du X-bus (FAXX). 
6. Relier 1C107 pin 1 à la pin 21 du X-BUS (reset). 


2 S : Vérifier les modifications à 1”’ohmmètre. 

LS 2: Mettre votre DAI sous tension sans MEMOCOM. 
*ii Contrôler le + SV sur chaque support de CI. 
xx* Introduire dans le bon sens les CI suivants: 


— CI 5 74C00 (CMDS ou HCMDS) 
— CI 6 74C42 (CMOS ou HCMDS) 
—- C1 3 votre EPFROM DCK. 
<<<< COUPER L’ALIMENTATION >>2>> 
Lt: Passer en UT. Visualiser les adresses FO00-F7FF. Le contenu de 
la ROM apparait, si ne n’est pas le cas,vous avez mal adressé 
le décodeur 74C42. (SWITCH À - B — A11 ouverts) 
Avec un oscilloscope,vous pouvez visualiser (FO000-F7FF) 
C1 44 pin 9 (carte mère) 
pin 47 du X-BUS 
CI 6 pin 12 
CI 6 pin 4 
L£ 2: Brancher votre MEMOCOM, et faire CALLM #F2F2. 


Si vous utilisez votre ROM DCR, la compatibilité SOFT est totale. 

A ce stade vous ne pouvez plus commuter vos EPROM à l’aide des minirupteurs 

Faites POKE #296,0. Maintenant modifiez la position des SWITCH, visualisez 
les adresses FO00-F7FF. 

Vous pouvez donc changer de banc mémoire mais vous n’avez plus les comman- 
des DCR. 
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Vous pouvez introduire le CI 4. (INS 8154 N) 


Les SWITCH ne servent qu’à l’initialisation du bon banc mémoire lors d’un 
départ à froid, ensuite le 8154 prend les commandes en placant les pins 
du port B en sortie basse impédance. (Par convention, A11 de CI 3 = SV.) 

La ROM DCR a été entièrement réécrite avec des commandes supplémentaires: 

RBP Restore Basic Pointer 
SBF Save Basic Pointer 
IMP _initialisation imprimante parallele. 
€ ) 
A l’initialisation le 8154 prend les commandes. A,B,A11 en basse impédance 


La nouvelle ROM DCR permet toutes les fonctions: 
<LOOK> <LAST> <VER> <CHECK> <LDAD> <SAVE> <CASx> <DCRx> 
11 est possible que dans certains programmes on teste la présence de 
l’eprom DCR par controle d’un byte dans le banc mémoire FO000-F7FF. 
Ce byte risque à présent d’être différent. 


Concernant le programmateur d’eprom, je tiens à votre disposition le soft 
correspondant pour des eproms 2722 en langage machine que vous lancerez 
par un CALLM #7000 

31 Répondez au menu #4 

Lecture en #4000 — #4FFF 

Vérification 

Test de virginité 

Programmation avec données en #4000 

Fin : retour au moniteur 

Attention à la tension de programmation (+ 21 V ou + 25 V). Cette tension 
de programmation doit etre mise au bon moment, (le soft vous previendra 
et la suprime dès que le programme vous rend la main. Utiliser une ali- 
mentation +30 V; le régulateur LM137 (T1) et le potentiometre (P1) per- 
mettent d’obtenir 21 ou 25V. (Un essai sans EFROM est conseillé.) 


1nT1<r 


Pour ce qui concerne l’horloge temps réel,le soft est en développement. 
Le CI 9 MMS8174A est adressé de FACO à FAFF. Reportez-vous à la notice 
du constructeur. Le QUARTZ est de 32,768 kHz (standard horlogerie). 
L’horloge continue à fonctioner mème en cas de coupure secteur, 
je compte sur vous pour me présenter des applications originales. 


Un mot sur l’utilisation de la RAM de 2K. (6116) 
Pour écrire dans l’espace mémoire FO000-F7FF, il faut faire un 
POKE #10,#C9 pour éviter un STACK OVERFLOW et prendre garde que 
le SWITCH ’WR’ soit fermé, ensuite faite POKE #10,0. 
En ouvrant le SWITCH ’WR’, vous protégez le contenu de la RAM en cas 
de coupure secteur.Cette RAM sert à lancer des programmes que vous 
voulez vérifier avant de les écrire en ROM et non de stockage des DATA. 
Pour stocker des variables, utilisez la RAM du INS 8154N. 


Tous les SOFT se rapportant a cette carte ont ete développées 
par mon ami Claude PICARD. 


Vous trouverez dans les prochains numero de DAI 
‘ d’autres renseignements sur cette carte. 


Amicalement. 


Eric CHOPPINET 
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2764 


4485004 


2H 
© 
8 

© 


INS 8154 N 


ps 


ES} = es 
2716 /2732 NM GS161 
€: 


pre 


0 


6 /273 
<< 


“ 


I ER 


D 


LISTE DES COMPOSANTS 


Résistances 
Asus tes 1009 
Acrenrs és 15kf 
Rae se 4709 
R5,RG6,R7...... 4,7kA 
RONDS 47KkA 
LL PETER 4,7Kkfn 
R11,R12,R13 47kN 
REA HE cover 1Kkn 
MR on-on sos 47kA 
RABAT 1Kkn 
M ccaésx 4,7kf 
(A ENTREE 10Kkf 
Ris sers eu 470N 
EE PAR 10Kkn 
A sas 100 A 

Condensateurs 
C1,C2...1 UF — 10 V (Ta) 
C3,C4...10nF 
CS: ue 1000 uF — 16 V 
CB 100 nF 
(:: 10 pF ou 30 pF ajust 


Semi-conducteurs 


DI,D2 DT ssucus 1N 4148 
DG DT" mess B2X 3,9 
DB reriensod OA 81 (Ge) 
ET Ses mets TOB 0117 
PAPE re BC 548 
CD: versus 6116 
1C1,1C2,103 2716 

sait ts 2732 

és 2764 
Idriss is ses INS 8154 N 
CS sous 74 C 00 
1C6,1C10 ....... 74 C 42 
IG; 08 d 4040 
CB; serues ÆPROM vierge 
Êe:: ERA MM 58174 À 

Divers 


Support à insertion nulle (28 br.) 
Inter DIL (4 inters) 
Connecteur 50 broches 
(2 x 25: pas 2,54) 
Quartz 32,768 kHz 
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Zuy OLA 210rb 


Vends DAI + 1 paddle + CLIO + pgms divers + mode d’emploi français ou ECHANGE 
contre imprimante (SEIKOSHA, EFSON) valeur équivalente. D’ARANTES Luc, Saint 
Fancré, F-54730 GORCY. 


Vends DCR achat début 83 + une 40aine de K7: 2000 FF état neuf ou 2500 FF avec 
K7, TRAN QUY, rue René LEFEVRE 52, F-41000 BLDIS, T.(16-54) 43-68-27. 


Cherche MEMOCOM + TOS d'occasion. Cherche DAlnamic janvier 84. Philippe 
VERHAEGE, rue BEL AIR 5, H-7190 ECAUSSINE. 


Vends cassettes CERTIFIEES digitales pour DCR: 1600 FB les 6 (port compris): 
cassettes DCR non-certifiées: 700 FE les 6 (port compris); EPROM NEW CHARACTERS 
GENERATOR: 500 FH. Christian FOELS (IDC). 


Carte PAL 3000 FR (à discuter); TOS DCR 900 FB. Marc VANDERMEERSCH (IDC). 


REMARQUES: Ces petites annonces gratuites pour les abonnés sont exclusivement 
réservées à des propositions entre particuliers sans objectif commercial et 
relatives à l’informatique. DAICLIC se réserve le droit de refuser une annonce 
sans avoir à fournir de justification. 


Envoyez vos annonces à la rédaction: 


1.D.C. —  DAICLIC 
C/0 Christian POELS 
Rue des Ras-Sarts 10 
E-4100 SERAING 


eus 


La société hollandaise SILD FROJECT a installé un système de controle technique 
de production géré par un DAI à l'usine de General Electric d'Albani aux Etats- 


Unis. 


DE NOTRE ENVOYE SFECIAL AUX ETATS-UNIS: 


Le DAI réalise une analyse constante de contraintes mécaniques de la 
composition chimique... 
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U NE S OUR I S 


PF OU R VOTRE D A I 


par Dominique CARLIER ( DAIC ). 


En tant qu'utilisateur du DAI j'ai toujours 
cherché les moyens me permettant d' utiliser le DAI 
comme machine utile. Malheureusement, les manettes du 
DAI ne convenant pas pour toutes les applications, 
j'ai opté pour une solution qui me paraissait comme 
étant meilleure. C' est ainsi que je me suis procuré 
une ‘color mouse’ de chez Tandy. Après un rapide coup 
d'oeil il s'avère qu'il faut faire quelques adapta- 
tions à l'engin en question pour pouvoir l' utiliser 
convenablement avec le DAI. 


Tout d'abord il faut changer le connecteur. 
Ensuite, il y a une piste à couper dans la souris. La 
figure 1 donne le schéma électrique de la souris et 
les couleurs des fils du connecteur { telles que je 
les ai trouvées dans mon exemplaire). Entre parenthè- 
ses vous trouverez les numéros correspondants du con- 
necteur DAI. 


Une fois ces modifications opérées, la sou- 
ris se connecte sur une entrée paddle et s ‘ emploie 
comme celle-ci. 


HD HE HD DE DE DEEE 


* figure 1 +* 
HE DH JEUNE DE DEEE HE 


TRS-8@ COLOR MOUSE SUR DAI-PC 


ORANGE (+ 5 volt) 


CNU) 


VERT (MASSE ) (COUPER ICI) 
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La figure 2 vous donne une idée de l'aspect de 
cette souris et à la fiqure 3 vous trouverez les diffé- 
rents mouvements possibles. Voici également quelques ca- 
ractéristiques techniques : 


déplacement maximal 127 mm 
longueur du cable 1,5 m 
dimensions : longueur 90 mm 
largeur 62 mm 
hauteur 34 mm 
poids 210 g 
DEN DE DD DE DE DE DE DEN 
* figure 2 * 
DHH HE DEN DD DE DD HE 


Cette souris ( réf 26-3025 ) valait , en 1984, 
2295 francs et n'est donc pas des moins chères. Si vous 
ne désirez que des manettes à 2 dimensions avec bouton 


poussoir il faut signaler les autres produits Tandy : 


— color computer joystick ref 26-5008 à 1295 f la paire 
— precision joystyck ref 26-5012 à 1295 f la pièce. 


DEN DE DE DEN DE DE EN 
* figure 5 * 
DDR DE DE IDE SEE DEUE NE 
0 5° 63 
0 
5° 
63 
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Si vous comptez adapter une souris comme décrit précédemaent 
ces notes vous seront très utiles. 


Quelques renseignements : 


- La souris se branche dans la sortie PDL 1 ou PDL 2. Elle 
vous donnera tout comme un potentiomètre ou un joystick 
une valeur précise allant de O0 à 255 en X& Y. 

- La souris est totalement compatible avec les logiciels 
utilisant les paddles , et ce sans aucune modification de 
ces logiciels. Certes l’utilisation de la souris avec 
certains programmes rend ceux-ci difficile d'emploi mais 
il en est d’autres où elle est particulièrement bien 
adaptée, tel le programme EDITEUR DE DESSINS. 

— Nous vous conseillons d’utiliser la souris sur une surface 
plane , de préférence sur une feuille de papier pour avoir 
une certaine adhérence. 

- 11 est conseillé de ne pas toucher la bille avec les doigts 
et de nettoyer { dégraisser...) cette bille régulièrement. 


Adaptation : 


Enlever la fiche livrée avec la souris (5 broches) et 
souder les fils , une fois dénudés , dans une nouvelle fiche 
{ 6 broches males ) comme sur la figure a. 


broches - couleurs 
1 —  DRANGE 
sassssrttsst 2 — ROUGE 
4 figure a 1 3 = 
LERETE TEE EST: 4 — JAUNE 
vue de 5 — BRUN 
6 — VERT 


l'interieur 
Retourner la souris (bille vers le haut) et dévisser les 

3 vis (aux extrémités) qui tiennent le ‘’capot’. 
Ouvrir délicatement en veillant à garder la bille vers le 
haut. Poser le capot avec la bille et le bouton EVENT 
(rouge) en prenant garde de ne pas égarer le petit ressort. 


Dévisser le circuit imprimé afin de pouvoir couper la 
piste venant de la masse (fil VERT) aux deux endroits 
décrits sur la figure 1 (voir plus haut). 

Une fois cette opération effectuée, remonter le circuit 


imprimé. 


Inverser les fils noir et rouge situés aux extrémités du 
potentiomètre mesurant les mouvements verticaux. 


Remonter le tout en prenant garde d’une part de ne pas 
trop toucher la bille avec les doigts, d’autre part de ne 
pas briser la petite tige supportant le ressort. 


Et maintenant à vos programmes. 


Fabrice DULUINS pour D.A.I.C. 
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1 REM XÉRENRRRERESSREREN ERREUR ENERLLRER 

2 REM # DEMO SOURIS EN PAGE TEXTE # 

4 REM # (c) Alain Mariatte & DAlclic 85 * 

5 DIALECTE TS CET SET TENTE TETE ETETETEE TL) 

6 GOSUE 1000 

7 ADA=#BFE7 : X4=0: Y4=0:F4=32: GOTO 55 

10 X4=PDL (0) : Y4=PDL (2) 

11 REM SELON VOTRE VERSION DU DAI CHANGER Y4=PDL (1) 
20 X2=X4/4:Y4=Y4/11:1F X2:59 THEN X4=59 

21 IF PEEK(#FD00) IAND 32=352 THEN 200 

22 IF XX2=X2 AND YYZ=Y2 THEN 10 

23 POKE AD%.P4:PFOKE AD4-5.0 

25 CURSOR X%, Y4: ADX=PEEK (#73) 4256+FEEK (#72) : PX=PEEK (#77) 
30 PRINT CHR$ (F4) :;:POHE ADX-35,#FF 

nn CURSOR 4,25 

55 XXA=X LI YY4= VA 

100 WAIT TIME 1:G0T0 10 

200 SOUND © © 15 © FREC'440.0):WAIT TIME 10:SOUND OFF 
210 GX=GETC: G4=GETC: G4=GETC 

211 GX=GETC:1F GX=0 THEN 211 


220 POKE AD%.6%:GOTO 25 

1000 MODE O:COLORT 8 © 10 O:FRINT CHR$(12) 
1001 POKE #84,#69:FOKE #8B.#EF 

1010 POKE #8A.#69:POKE #8D.#EF 

1020 POKE #8C.#ES:POKE #BD.#ET 

1030 FOKE #84.#D5:POKE #85.4#E3 

1040 POKE #8E.#DS:POKE #6F.4#EHS 

1950 PRINT CHR$(12):LIST 1-220 

1060 RETURN 
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INTERFACE POUR JOYSTICKS ATARI, SPECTRAVIDED, ... 


Vous qui vous êtes toujours plaint de ne pouvoir profiter de véritables 
sannettes de jeu pour votre DAI, celles-ci étant vendues à un prix exhorbitant 
par Multisoft (sans pub.), ce montage vous concerne. 


En effet, ayant pendant un temps rongé mon frein come vous, j’ai franchi 
le pas et créé une interface de faible coût mais qui vous ouvre l’énorse 
#arché des joysticks fonctionnant sur ATARI, CBM 64, consoles de jeux,... tous 
ces joysticks possèdant (c’est rare) une fiche de sortie (type CANON 9 
broches) cablée universellesent de la sêse façon. : 


Après ce petit préambule, je vous décrit la ‘’bestiole’ en question: une 
petite boite, grosse coese une boite d’allusettes grand-foraat, qui se charge 
de tout l’interfaçage nécessaire pour que notre cher DAI puisse ingurgiter ce 
que le joystick va lui fournir. De plus, pour les jeux d’action, une fonction 
répétition’ pour le tir est incluse afin d’éviter de maltraiter le bouton de 
tir du joystick lors d’une attaque particulièrement farouche dans un épisode de 
DAYLAXIANS, PACMAN ou autre. 


de vis 
de 
vers 
prise 
du DAI 


Les fanatiques d’électronique reconnaitront aisésent 3 circuits intégrés 
très classiques : un CD 4011 (4 portes NAND-CMDS), un CD 4066 (4 interrupteurs 
CMDS) et un NE 555 (sultivibrateur). 


Le NE 555 sert pour la répétition (AUTOFIRE pour les anglophones) du tir. En 
effet, la broche 4 (RESET) de ce circuit est reliée au bouton de tir du 
joystick. Lorsque le tir est relaché, un niveau O0 est présent sur cette broche 
et maintient à Ola sortie du NE 555 en broche 3: pas de tir. Lorque le tir 
est activé, la broche 4 passe à 1 (+5V) et le NE 555 se set à osciller en 
délivrant une rectangulaire de 7 Hz environ en broche 3: le DAI va détecter 
successivement : ‘’bouton appuyé’,”’bouton relaché’,’appuyé’,’relaché’,... 
Plus besoin d’appuyer frénétiquement sur le bouton du joystick: un simple 
appui permanent suffit. Naturellement, le bouton relaché, le NE 555 s’arrete 
jusqu’à la prochaine sollicitation. 
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La détection des mouvements se fait comme suit : 


— paddle à gauche PDL(0) = 0 
- paddle à droite PDL(O) = 255 
- paddle au eilieu PDL(O) = 128 
- paddle en haut PDL(1) = 255 
- paddle en bas PDL(1) = 0 
- paddle au milieu PDL(1) = 128 


Seules ces 6 positions de la sannette sont accessibles (avec les 4 
combinaisons 2 à 2). 

Le joystick sollicite un contact Jlorsqu’il atteint chacune de 4 positions 
extremes (haut-bas-gauche-droite); tous les contacts sont relachés lorsqu'il 
est en position médiane. 


Le CD 4066 et le CD 4011 se chargent de détecter puis d’intepréter ces 
inforsations en connectant ou en courcircuitant les résistances comme suit: 


- gauche : liaison directe avec +5V 

- droite 2 RVI + Ri sur PDL(O) 
- milieu horizontal : RVI 

- bas : liaison directe avec +5V 

- haut : RV2 + Ri sur PDL(1) 
- milieu vertical : RV2 


En sortie , on obtient des niveaux variables sur PDL(Q) et PDL(1) en fonction 
de la position du joystick. Le décodage est immédiat et infaillible ! 


CIRCUIT IMPRIME : 


Circuit imprimé coté cuivre Circuit imprimé coté composants 


Con © 


Fir SouP’Le 


Cain D 


Toutes es resislences 
se soudent debout Ê 


Peu de remarques à faire. Le circuit imprimé peut-être reproduit soit par 
transferts + gravure au perchlorure de fer, soit par photo + gravure au 
perchlorure (plus couteux), soit par une entreprise spécialisée qui se 
chargera du travail moyennant finance et le plan du circuit (quand même) face 
’cuivre’. 
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Une fois le circuit percé (et étané éventuellement), on procèdera à la 
soudure des composants : d’abord les résistances (on ne peut se troaper : 
elles ont toutes la MEME valeur) puis les 2 condensateurs puis les supports 
des 3 circuits intégrés (je vous le conseille fortement). On enfichera pour 
finir les 3 circuits intégrés dans leurs supports respectifs et DANS LE BON 


correspond _à 


La plus grosse partie du boulot. 
Pour commencer, je définis le no® des différentes fiches que je vais employer: 


JOYSTICK FICHE PRISE CANON 


ES: —#æ a 


par À) 


COTE ENF ICHABLE COTE A SOUDER 


COTE (B] DE LA PRISE CANON COTE [D] DE LA FICHE DIN & BROCHES 


1 
F 
+5» 
& D +55 Fr h 8 


Soignez les soudures (résistance accrue à la traction). Pour les connections, 
utilisez du fil 1 conducteur de faible. 

Pour le cable qui relie circuit imprimé et fiche DIN, il n’est pas du tout 
nécessaire d’utiliser du cable blindé 4 conducteurs + aasse (rigide et 
couteux). On pourra utiliser du cable en nappe S conducteurs qui a l’avantage 
d’etre très souple et d’un prix presque ridicule. 
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MISE EN BOITIER : 


Tout boitier plastique peut convenir. Avec tout le soin nécessaire, on 
percera : - 1 trou pour le cable vers la DIN é6br. 
— 1 trou trapézoidal pour la prise CANON 
— 4 trous sur le fond du boitier correspondant aux 4 coins du 
circuit imprimé pour la fixer à l’aide de vis et d’écrous # 3mm 


E te en L'e composants 
RS —————— bcitier 


Le boitier va faire l’objet de beaucoup de manipulations plus ou #æoins 
brutales; il est donc important de bien fixer le circuit imprimé. 


ESSAI ET REGLAGES : 


Deux réglages minimes sont nécessaires. 
Branchez la fiche DIN dans la prise PDL 1 du DAI et branchez votre joystick 
dans la fiche CANON. 
Allumez votre DAI, vérifiez qu’aucun des circuits intégrés ne chauffe : s’il y 
en a un qui semble faire office de ’radiateur’, débranchez tout et revérifiez 
votre cablage (le circuit intégré ’radiateur’ peut avoir claqué...) 


Si ce cap est passé, tapez en BASIC : 
10 PRINT PDL(0),PDL(1): GOTD 10 <return> 


faites RUN <return> et ne touchez pas au joystick (mannette en position 


médiane). 

Ajustez RVI1 de façon à ce que l’on ait 128 (ou éventuellement 127) comme 
première valeur affichée à l’écran. 

Faites de meme avec RV2 pour avoir 128 comme seconde valeur. 

Ceci terminé, tapez NEW <return> puis UT <return> 


>23 

>S300 xx-3A xx-00 xx—FD xx—E6 xx-20 xx-CD xx-1D xx-ED 
XX-3E xx-OD xx—EF xx-03 xx-C3 xx-00 xx-03 

>6300 


Le DAI affiche toutes les valeurs récoltées au niveau du bouton de tir. 
Vérifiez qu’à l’écran, lorsque le bouton est relaché, n’apparaissent que des 
00 et lorsque le bouton est appuyé, apparaisse une succession de 20 etde 00. 
Si tel n’était pas le cas, revérifiez votre cablage. 


Repassez en BASIC et retapez la ligne BASIC vue plus haut et manoeuvrez le 
joystick tout en vérifiant les valeurs affichées qui doivent être : 


lière valeur 2ème valeur 


à gauche 0 128 
à droite 255 128 
en bas 128 Le) 
en haut 128 255 
en bas-à gauche 0 0 
en haut-à gauche (J 255 
en bas-à droite 255 0 
en haut-à droite 255 255 


Et voilà ! refermez le boitier de l’interface ... et réjouissez-vous ! Partez 
à l’assaut de vos jeux préférés que vous allez découvrir d’un jour nouveau: le 
PAC-MAN devient plus facilement maniable à présent et je suis sùr que votre 
ancien record ne tiendra pas le coup très longtemps... 
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LISTE DES COMPOSANTS : 


CR 


Q Nm 


x C11 : CD 4066 (ou CD 4018 : meme brochage, ou HCF 4068 ou HEF 4066) 
x CI2 : CD 4011 (ou HCF 4011 ou HEF 4011) 

x CIS : NE 555 (ou équivalent, demandez conseil à votre revendeur) 
x R : résistance 68 k£- 1/4 W (5 ou 10 %) 

x Ci : condensateur 10 nF - 63 V non polarisé 

x C2 : condensateur ou tantale 14F - 10 V miniaua 


NB vérifiez que la taille des condensateurs que vous achetez 
permettent leur implantation sur le circuit iæprimé 

résistances ajustables couchées 100 ke 

joystick type ATARI, SPECTRAVIDEO (1 ou 2),... (muni d’une fiche CANON 
femelle) 

fiche CANON #ale chassis 9 broches 

boitier plastique aux dimensions adéquates 

supports de circuit intégré 14 broches è à souder 

support ? ? È 8 broches 


u cable 1 fil et du cable nappe 5 fils 


ATTENTION : CI1 et CI2 sont ultra-sensibles aux décharge d’électricité 


statique. Ne les touchez pas avec les doigts et conservez les 
enrobés de papier aluminium jusqu’à ce que vous les insériez dans 
leurs supports. 


NOTE : si vous ne voulez plus avoir à retoucher périodiquement RVI et RV2 pour 


rectifier les réglages, immobilisez les curseurs de ces 2 résistances 
variables à l’aide d’une simple goutte de cire de bougie fondue. Bien 
que peu recommandée en Haute Fréquence, cette ’astuce’ vous sera d’une 
grande utilité face aux chocs que va subir votre interface... 


{c) Pascal JANIN le 31 décembre 1984 


N dvd ovss ax SX. des ES sait 
serr NULS N roiu ateinan ed ss lente GPù tr Ste n°: 


DAICLIC NUMERO 2 - PAGE 64 


ASSEMBLEUR 


LOL LES EEE ES ES RAT ETS CCE LS LE SET TETE NOTE CCC ET CE EE STEEL TETE TES 
Li PROTECTION ET DEPROTECTION : une enquete de DAICLIC L 
ACRRAOR AOC AC AC AC CA AC CE CE EC CO CCC CCE A CE OO RS 


Comment déplomber TOTO HP LEGRY 
diffusé par le CCC par 
(Computer Casseure Club) F-59 DOUAI 


{cfr: DAllassement !) 


Vous avez sans doute rencontré des programmes protégés que vous auriez voulu 
dupliquer, ne serait-ce pour les mettre à l'abri de fausses manseuvres. Avec un 
peu d'imagination et le FIRMWARE MANUAL, vous pourrez copier ces logiciels 
pour, je vous le conseille fortement, votre usage personnel. 


Ne vous attendez pes à trouver des ‘recettes’ pour chacun des programmes 
protégés. Ce n'est pas le but de ce qui suit. 

Je vais esseyer de vous expliquer une méthode de protection employée dans 
queiques programmes... 


Nous allons prendre un exemple (puisqu'il faut un exemple) d'un programme 
protégé, diffusé par le CCC ‘Comuter Casseurs Club), le programme TOÜTO 
{restons originaux !) 


TOTO se compose d’un loader et d‘ur programme protégé. Il nous faut donc 
charger cette partie protégée en évitant le loader, tout en neutralisant 


l'autostart. 


1 - le LCADER 
LOLTETCEUTELE: 


Le loader ‘ou le USER pour certains programmes) constitue le point faible de 
la protection. I] indique nécessairement la méthode de chargement de la partie 
principale. 11 est généralement illisible. Celui que nous ailons demonter fait 
partie du ‘vieux systeme’. La nouvelle methode, que j'ai rencontrée récemment, 
est plus efficace. Je ne l'eborde pas, un seul sujet à la fois : 


Four accéder au loader, petit programme LM chargé en mémoire RAM, il faut le 


lire, le faire tourner ‘à vide’ puis le stopper. Donc : 
Fositionner la cassette sur le Loader. 
Charger le Luader (LOAD). 
Ouvrir el retirer la cassette. 


Faire tourner le loader (RUN). 
Stopper le loader (BREAK). 


Sur DCR vous appuyez sur BREAK tout en refermant le DCR avec une 
microcassette à l’intérieur. 


Maintenant, vous pouvez observer le loader en examinant la pile 
(#F800-#F900). C'est à cet endroit, er général, que les loaders sont stockés. 


Z - Lecture de ia partie protégée 
COPTTPTETIN ET TT TEE TESTS TTTTETITT) 


Vous avez sans doute lu mor article sur le READ. Les logiciels se présentent 
sous leur forme langage machine car le load ne permet pas, simplement, de 


charger un programme entre #9 et #29 (autostart). 


a- ouverture du fichier === 
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Un nom classique se compose du type du programme (#31) puis du nom en 
caractères ASCII. Subtilité, pour certains programmes, le type du programme est 
remplacé par un caractère non reconnu par un read ou un load, c'est-à-dire 
différent de 1 (1m =#31) et de O (basic = #30 ). 


Ici, pour TOTO ,le code ascii représentant le type de programme est #20 (un 
espace) . 


Donc pour ouvrir le fichier : 


MVI BR 20H 3; TYPE DE PROGRAMME = SPACE 
MVI C  OFFH 3FF FOUR L'AFFICHAGE 
LXI H NAME 3HL POINTE SUR LE NOM 
NAME DE 4H : NOMBRE DE LETTRES 
BD ? TOTO* :NOM DU PROGRAMME ATTENDU 


Four plus de sécurité, on pointera H sur OH. On ne testera pas le nom du 
programme. 


b - lecture du(des) bloc(s) —-----------------—————————— 


Un programme machine (WRITE-READ) comporte deu: blocs. 
Un premier bloc, de deu: octets,indique l’adresse ,dans la RAM où le second 
bioc doit etre charge en mémoire lors de :a lecture. 


Frenons un exemple , le FGT (#30G-#990) : 
le premier bloc de deux octets : d300H 
le deuxieme bloc : le FGT 


Si le programme n'a pas cette structure, il ne peut etre lu correctemment 
par un READ . 


TOTO se divise en deux blocs. Un bloc de #25AS5 a #75F0 puis un bloc de © a 
#2544 . Chaque partie doit etre chargée aux adresses que je vous ai donnees. Le 
DAI ne connait pas ces adresses. Contrairement au READ où l'adresse de 
chargement est fournie par les deux octets formant le premier bloc, il faut 
indiquer ces adresses par le loader. Far défaut, ces parties seront chargées à 
partir de OH, ce qui n’aura pas de sens pour le progr amme. 

Vous allez me demander comment j’ai obtenu la structure du programme sur la 
cassette : en examinant le loader. 

Sachant que l'ouverture du fichier s'effectue par un CD 2CEH et que la lecture 
de bloc par un CD 2D1H, qu'il faut indiquer ces adresses de chargement dans HL 
(voir articles précédents). 


Structure du programme sur cassette 

type : (space) #20 

nom : (TOTO) T.0.T.0 (en ascii) ler bloc : #2SA5 à 
#75FO0 Zeme bloc : #0 à #25A4 


Nous allons donc simuler le loader. 


DRG OAOQOH 
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LXI HE  20FFH 
LXI H OH 
CALL 2CEH 
LXI H 25ASH 
LXI D  OAOOH 


TYPE DE PROGRAMME =* 
PAS DE NOM ATTENDU 
OUVERTURE DU FICHIER ; 
ADRESSE DE DEBUT ler BLOCK 
FIN DE LA RAM DISPONIBLE 


ee we se we se we se we 


CALL 2D1H LECTURE DU PREMIER BLOCK ; 
LXI H CH ADRESSE DE DEEUT 2nd BLOCK 
CALL 2LD1H LECTURE DU SECOND ELOCK ; 
CALL 2D4H FERMETURE DU FICHIER 

RET 

END 


Le second bloc est autostart. Il place l'adresse de lancement en #2D5. Vous 
avez donc chargé TOTO mais il démarre et vous n’avez pu récupérer la main. 


3 — L'’AUTOSTART 
LÉHOOOOOONONX 


Pour neutraliser l’autostart, il suffit de décaler les blocs de (au moins 
#200) #1000 par exemple, ceci afin de ne pas modifier l'adresse #2D5 lore du 
chargement du programme (voir mon article sur l'autostart). 


ORG CAGGOH 
LXI B  ZOFFH 
LXI H OH 
CALL. 2CEH 
LXI H  Z3SASH 3 2SASH+1000H=35ASH 
LXI D  OAGGOH 
CALL 2DiH 
LXI H 1000H 
CALL 2D1H 
CAL 2D4H 
RET 

END 


Votre programme (9 a #75F0) est chargé, décalé de #1000 {entre #1000 et 
#85F0). Four le faire tourner il faut donc le redécaler et le lancer. 


a - le décalage 


Deu*: solutions : Le sauvegarder de #1006G à #ES5FO sur cassette et le relire 
avec un uffset de {-#1000) suit #C000. Donc le charger par 3 


UT 

#RCO00 

Le programme £e charge et démarre tout seul. 11 se comporte comme l’original 
à la seule différence que vous disposez d'une version non protégée. 


Le seconde solution consiste a programmer le décalage et le iancer par un 
Call en 1m. 


Frogramnation du décalage : 


DI : DECONNECTE LES INTERRUFTIONS 
LXI H 1006H 

LXI D  BSFGH 

LXI B OH 
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CALL ODE4FH 5 #1000-H#85FO -->; #O-H75SFO 
EI 3; AUTORISE LES INTERRUFTIONS 


b - le lancement 


L'adresse contenue en #2D5-#2D6 soit #W12DS-#12D6 dans la Ram après 
chargement vous indique l'adresse de lancement. 

11 vous faut commuter la banque 0 car le programme ne le fait pas toujours. 

Si vous observez ces adresses vous pouvez voir en #12D4, à la place de CD 1F 
FI : CD E1 65. C'est l'adresse de lancement. 


Donc pour lancer TOTO (de #1000 à #85F0), il faut utiliser le lanceur que 
vous pouvez inclure à TOTO en le plaçant juste après le programme (en #85F0 par 
exemple) : 


DI 

LXI H 1900H 

LXI D BSFOH 

CALL ODE4FH 


ET 
MVI À CH 
CALL OD896H 3 COMMUTE LA HANQUE © 


CALL &6SE1H 


Conclusion 
LOREEELEES) 


Vous disposez d'une copie de TOTO que vous pouvez dupliquer. Gardez-la pour 
vous et n'en faites pas le commerce... 


En résumé, si vous arrivez à examiner le loader, qui est la clé de toute 
protection (de celles que j'ai rencontrées), vous observez le CD 2CEH et vous 
obtiendrez le nom et le type de programme. En regardant les CD 2DIH vous 
decouvrirez le nombre de blocs et leurs adresses. Le plus deiicat : 
l'adresse de lancement est généralement contenue en #2D4. 

Attention, les interruptions peuvent etre modifiees. Une d'entre-elles l'est 


dans TOTO. 


Une enquete de LEGRY H-P pour IDC 
(une erquete ; pas un piratage !) 


N.E : Cet article nous a été envoyé par H.F Legry (vous vous en doutiez), je me 
suis cependant permis de le modifier à plusieurs endroits. En effet, dans 
sa version originale, cet article vous expliquait comment déprotéger un 
programme paru dans le commerce dont je me suis permis de transformer le 
nom...(pas de chance les pirates !). 

La protection décrite ici est un exemple de protection, cela vous donne 
donc une idée de la démarche du pirate face à elle... 

Toutes les protections ayant leurs affinités, il va de soit que ce petit 
truc ne marche pas avec beaucoup de programmes protégés, ce n’est qu'un 
exemple... 


Marc Vandermeerch 


UT 
un 
D 


Quelqu'un a-t-il trouvé de quel programme il s'agissait 7 Si oui, qu'il 
écrive à DAICLIC, une (petite) récompensé l'y attend ! 
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DeRASIE 


EXTENDED BASIC (2) 


LIBMAT.D constitue une librairie de neuf nouvelles commandes concernant le 
calcul matriciel. Les noms utilisés dérivent du Basic matriciel standard. 


Dans la description ci-dessous A({),B(),C() représentent des matrices 
préalablement dimensionnées. 


lecture d'une matrice A() MATREAD A() 
-affichage MATPRINT A() 

mise à zéro MATZER A) 

-mise à un MATCUN A() 
addition de deux matrices A() H{) MATADDD A(),B(),C{) 


résultat dans C() 


-multiplication d’une matrice A() MATSCAL M,A(),B() 
par un nombre Mirésultat dans K() 


multiplication de deux matrices A() B{) MATMULT A(),B(),C() 
résultat dans C() 


création d’une matrice identité A() MATIDN A() 
(seule la diagonale principale contient 1,le 
reste contient zéro) 


-transposition d'une matrice A() MATTRN A(),B() 
résultat dans B() 
(inversion des lignes et des colonnes) 


Voici un exemple d'utilisation après avoir chargé LIBMAT.D 


1000 DIM A(2,2),B(2,2),C(2,2) 
1010 MATREAD A():MATREAD E() 
1020 MATPRINT A():MATPRINT E() 
1030 MATADD A(),B(),C():PRINT 
1040 MATFRINT C() 

2000 DATA 1,2,3,4,5,6,7,8 


La prochaine librairie d’EXTENDED BASIC concernera l'édition de textes avec la 
commande PRTUSING 


Fernand LEMOINE - CLUB CAROLODAI 
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DBASIC VZ.2 


PAGE 


59Ù 
592 
594 
596 
558 
599 
éoû 
602 
CE] 
édé 


o4z 


CT 


652 


656 


CI 


664 
é6o 


1 


NUR— — HI CRI — PI CI NI — NU NN — NUNN— NU Ci NU 


— NC & CA Ci ND — 


REH 
REM 
REM 


LERLEELLELLLLLLLLE EI LELLELELLLLLLLLLLLE) 


EXTENDED BASIC PART 2 
LIBMAT.D LIBRAIRIE :CALCUL MATRICIEL 


REM Fernand LEMOINE CLUB CAROLODAI 


REM JANVIER 1984 


REM HARMAN RRRRRRR RM RRRRE RSR RRRRERE SR 


DEF PROC MATREAD ARR À 


FOR I=1 TO DIM(A,1) 

FOR J=1 TO DIM(A,2) 
READ A(I,Jj: 

NEXT J: 

NEXT I 

END PROC 

DEF PROC MATPRINT 
FOR I=1 TO DIM(A,1): 
PRINT : 
FOR J=1 TO DIM(A,2) 


ARR A 


PRINT TAB(iJ-1)#7);A(1,J)3: 


NEXT J: 
NEXT ! 
END PROC 
PROCEDURE MATZER ARR 
FOR I=1 TO DIM(4,1): 
FOR J=1 TO DIM(A,2) 
A(I,J)20: 
NEXT Ji 
NEXT I 
END PROC 
PROCEDURE MATCUN ARR 
FOR 121 TO DIM(A,1): 
FOR J=1 TO DIM(A,2) 
A(I,J)=1: 
NEXT J: 
NEXT I! 
END PROC 
PROCEDURE MATADD ARR 
FOR 121 TO DIM(A,1i: 
FOR J=1 TO DIM(B,1) 


ñ 


A 


A,B,C 


Cil,J)=A(I,J)+B(1,J): 


NEXT Ji 
NEXT I 
END PROC 


PROCEDURE MATSCAL M ARR A,B 


FOR I=1 TO DIMiA,1j: 


FOR J=1 TO DIM(B,1) 674 
B(I,J)=M#A(I,J): o76 
NEXT J: 
NEXT I 
END PROC 678 


PROCEDURE MATMULT 

FOR 1s=1 TO DIM(A,1): 
FOR J=1 TO DIMiB,2) 
Cil,J)=0 


ARR A,B,C 


FOR K=1 TO DIM(A,2): 


Cil,J)=C(I,J)+4(1, 


NEXT K 
NEXT J: 
NEXT I: 
END PROC 
PROCEDURE MATIDN 4RR 
FOR I=1 TO DIM(A,1): 


J)#+B(K,J): 


os 


— NW C4 Be CA Ca ro 


FOR J=1 TO DIM(A,2) 
A(I,J)=0 
IF I=J THEN 
A(I,Jd)=1: 
END IF 
NEXT Ji 
NEXT I: 
END PROC 
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TEST DAI DOS 1541 


On à longtemps dit (et on dit toujours !) que le lecteur de cassettes 
digitales Memocom est, de par son prix, une excellente alternative entre le 
système cassette audio et les disquettes sur le DAI. 

En effet, cette petite boite noire (ou blanche selon les modèles) 
‘tourne’ très bien ,est d’une fiabilité exceptionnelle (quand on emploie des 
vraies cassettes digitales) et va tout de meme assez vite. (6000 bauds). 

En bref, ses deux gros points noirs sont : 

1> le prix élevé des cassettes... 

2> le non accès-direct aux fichiers enregistrés... 

Depuis peu, nous avons vu apparaitre des drives bizarres autour de notre 
DAI, des drives de marque Commodore. Vu le succès qu’ils ont actuellement, il 
fallait bien que je voie ’comment ça marche’, ce que je fis lors de mon dernier 
passage chez notre bien-aimè président C. POELS (je vais monter en grade !) , 
heureux possesseur de ce système Commodore. 

Le système testé est le système hollandais, à ne pas confondre avec le 
système Commodore allemand. 

Tout de suite, j’ai été étonné par le nombre de fonctions du DOS. En 
effet, on aurait pu s'attendre à un DOS quelque peu faible sur un tel matériel, 
mais non... 

Le système se compose de : 

- un interface DAI-Commodore drive.: +/- 6000 FB 

— un lecteur Commodore: entre 11300 et 15000 FB suivant l'endroit... 

11 faut noter qu'aucune modification n’est à faire sur le drive... (donc 
si votre fils, frère ou voisin possède un Commodore 64, pas de problème, votre 
drive est bon pour servir chez eux.) 

L'interface est en 2 parties : un petit circuit imprimé style TOS DCR à 
mettre dans les entrailles du DAI (sur le BUS) et un petit boitier d’interface 
extérieur. 

En fait, le drive Commodore possède d’origine un DOS intégré en ROM. 
L'interface du DAI ne fait donc que transmettre les commandes à ce DOS, ce qui 
nous emmène vers le principal problème, bien connu des utilisateurs de 
Commodore 64 : la vitesse (ou plutot la lenteur !) 

Le système ne dépasse pas les 3400 bauds !, la moitié de la vitesse du 
DCR ! 

C'est très lent, seulement voilà, il ne faut pas oublier que les drives 
se placent directement à hauteur du bon programme. 11 ne faut pas s’amuser à 
rebobiner sa cassette et obtenir des choses du style : 

REW 1:LOOK (zut, ce n'est pas ce programme là) et de nouveau 
REW1:LOOK... 

N'oubliez pas que comme le DCR rebobine aussi vite qu’il lit, un 
LOAD"DALIDA" sur disquette Commodore correspond +/- à un REW 1:LOAD"DALIDA" 
sur DCR... De plus, à la sauvegarde, pas besoin de recherche une place libre 
sur la disquette puisque le DOS fait ça très bien... Bref, après quelques 
calculs savant, on perd moins de temps avec le drive COMMODORE qu'avec le MDCR 
(sans compter la souplesse d'utilisation!!!) 

C’est donc à vous de voir si cela vous parait intérressant ou non ! 

Plus de précisions sur les commandes principales du DOS : 
- le DIRECTORY est appellé par DIR. Il affiche à l’écran le nom de tous les 
programmes sur la disquette (page par page, pas comme les drives INdata qui 
vous déballent tout en 2 sec et qui, de ce fait, vous empechent de lire le nom 
de vos programmes stockés sur la disquette...). De plus, un peu comme le Ken 
Dos, vous pouvez charger un programme directement depuis le directory. En 
effet, vous avez à votre disposition un petit curseur avec lequel il vous 
suffit d’aller pointer le programme voulu. Le DAI chargera alors ce programme 
et le lancera... Inconvénient du directory : quand vous etes passé à la seconde 
page de directory, vous ne savez plus repasser à la première. 11 faut donc 
refaire un autre DIR. 

— Si vous sauvez un programme machine et un programme basic sous le meme nom, 
il existe alors une commande qui chargera automatiquement les deux programmes, 
adaptera les pointeurs et lancera la partie HASIC (ex: FGT+BASIC). 
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IMP INT 
IMP FPT 
sortie sur écran 
sortie sur imprimante 
: affiche l’état de chaque entrée/sortie (on/off) 


rétablit le petit curseur clignotant. 
mode © 


- /1 <return> 
- /F <return> 
- /D <return> 
- /P éreturn> 
- /H  <return 
- /C éreturn> 
- /M <return} 


ne you ne 


D il y a encore d’autre commandes de ce style, 
je ne vais pas toutes les citer... 
— SCRATCH efface un fichier 


— FORMAT : formatte une disquette. 

- COPY : copie un fichier. 

— RENAME : renomme un fichier. 

- VALID : compacte les fichiers de la disquette, ce qui implique gain de 
place. (réorganisation du disque, si vous préférez.) 

- USER : appel d’une routine machine en mémoire (style PROCEDURE DHASIC) 

- AUTOLINENUMBER : numérotation automatique des lignes. 


Avec l'interface est fournie une disquette TOOLKIT qui permet, par 
exemple, de regarder un secteur de la disquette, de charger des programmes 
Commodore (ce qui n'est pas intérressant, car le Commodore travaille avec 
beaucoup de POKEs),... 

Vous pouvez connecter sans problème 4 DCR et 4 drives en ligne. 11 est 
également possible de connecter une banque d’eproms sur l’interface. 

Il est à noter que le système n'accepte que 16 caractères dans les 
titres des fichiers et qu'il est impossible de faire des fichiers autostart à 


l'allumage de l’ appareil. = 
Chaque disquette est formattée à 170 K bytes. 
En bref : 


æ=====2== 

Un beau petit système qui me semble tout-à-fait capable de détroner 
notre bon vieux DCR, ce n’est évidemment pas un Ken Dos, mais ce n’est pas mal 
du tout. 

C'est à peine plus cher que le DCR, mais il ne faut pas oublier qu’une 
disquette coute beaucoup moins cher qu’une cassette digitale. 

L'interface Commodore hollandais est complètement compatible DCR. 


Marc Vandermeersch 
pour le DAIC (Bruxelles) 
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DAILÉSSEMENT 


Chers anis intellectuels, bien le bonjour ! 
Dans ce deuxième dailassement, nous allons vous aontrez un eaploi 
particulièrement particulier (c'est le cas de le dire !) du DAI: 


#+*# Le DAI, instrument de développement physique ### 
(c) IDC / DAlclic / DAIBIL 1985 
tous droits réservés 


Si vous voulez faire chauffer vos auscles, entrez le petit 
programme suivant dans votre DAI (enfin par le clavier, vous a'aviez 
coapris!) 


10 REM BODY BULDAI 

20 REM (C) IDC/DAlclic/DAIBIL 

30 REM Nous déclinons toute responsabilité quand à tout mauvais 
40 REM fonctionnement de votre DA! suite à l'enaploi de ce progranme. 
50 REM 

60 REM ### PRESENTATION 

70 PRINT CHR$#(12):MODEO:COLORT 5 15 5 S5:POKE#75,32 

80 CURSORO,17:PRINT" DAI PERSONAL BOXEUR"; 

90 POKE#BCCB,#5F:POKE#BC9BM#SF : POKE#BC9A,#40:CALLM#D6DA 

100 REM ### PARTIE PRINCIPALE DU PROGRAMME 

110 G=GETC:G0TO 110 

120 END:REM FIN ##4# DU PROGRAMME 


Après avoir tapé ce programne, faites RUN. 
Pressez la barre d'espace pour entrer dans le programme principal. 


Le but du jeu est de frapper le plus fort sur le clavier, voici la 
table des scores après enploi de ce programme eprouvant : 


- si rien ne se passe, vous etes une mauviette, reconmencez... 

- si vous obtenez un message d'erreur, vous etes déjà une forte jeune 
fille, recommencez... 

- si vous obtenez un STACK OVERFLOW, vos muscles commencent à chauffer, 
recommencez... 

- si votre DAI se plante (tapisserie, etc....), c'est que vous etes déjà 


d'une certaine force, mais vous pouvez faire mieux, recommencez... 

- si votre ecran se coupe, que votre clavier vole dans l'autre coin de la 
pièce et qu'une fissure apparait à la surface de votre bureau ou de 
votre table, vous etes très fort. Dans ce cas, engagez vous au CCC 


(computer casseurs clubs) . 


Des claviers de rechange sont à votre disposition chez tous les 
bons DEALERS DAI. 


Le plus fervent de vos serviteurs, DAIBIL lui-sene : 
(mais qui suis-je...777.,.) 


P.S + Cet article a été fait sur un horrible Apple //e (nom mais sans 
blagues hein ??7), mais mon DAI est tombé en panne lors de la mise au 
point de ce progranme de musculation...cela vous aidera à savoir qui je 
suis... 
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ASSEMIBLEUR 


RÉLELLALENELLELERENEREESERELELSELELALELELELELLRLEELERLELELL 
t READ AND WRITE Li 
LASER LRERELESELELELEREELENERLERELERELELELTLLENERLETELELATES 


D.A.1.C.L.1.C HP & L LEGRY 
= ses par 
MARS 1985 F-59 DOUAI 


11 y a peut, je vous avais propose un article sur la sauvegarde et la lecture 
de programme sur cassette. Quelques erreurs, dues a mon empressement, s’etaient 
glissees et compromettaient la reussite des articles qui allaient suivre, 
surtout ceux concernant la deprotection de programmes ( interressant, non !! ). 

Je me devais donc de reecrire cet article, ce que je fais ici. Les programmes 
ont etes testes. 


A - LE WRITE 
LARARALELIEX 


Lorsque vous sauvegardez un programme en langage machine sur cassette ou 
DCR (Wladr hadr Name) ,il est structure de la maniere suivante: 


1 Type 1 
ler bloc <I de programme I 
1 + nom 1 
s======2===22=222] 
1 Adresse de 1 
2eme bloc I debut du 1 
1 programme 1 
zs==2==s2=s2222822=] 
1 1 
1 1 
1 Programme 1 
I 1 
3eme bloc <I en 1 
I 1 
LL 4 1 
1 1 
suzs==2=======s2==] 


-Type de programme = caractere ASCII correspondant a 1 (31H) pour le LM 
-et à Q (30H) pour le basic-. 

-Nom du programme = chaine de caracteres ASCII = Name 

Adresse de debut de programme = ladr 


Exemple: la FGT 


Pour sauvegarder la FGT vous effectuez: W300 900 FGT 


Vous avez alors: -Type = 31H 
Nom = ’FGT’ 
-ladr = 300H 


Lorsque vous utilisez la commande ’WRITE’ le DAI execute les operations 
suivantes: 
Ouverture du fichier et ecriture du nom du 
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programme. 
Ecriture de l’adresse de depart. 
Ecriture du programme LM. 
Fermeture du fichier. 

Examinons ces operations un peu plus en detail. 


a/ Ouverture du fichier 
Cette routine se lance par un ?” CALL 2C5SH ? 
avec: — HL pointant dans la RAM sur l’adress ou est stocke le nom du 
progr amme 
-— À contenant le type de programme. 
Elle demarre le moteur du cassette. 
Le nom pointe par HL est structure de la facon suivante: 
Le premier octet correspond au nombre de caracteres;iles suivants aux 
aux lettres du nom (code ASCII). 
Si on ne desire pas donner de nom,il suffit d’initialiser HL a 0. 


b/ Ecriture d’un bloc (adresse de debut et programme LM) 


Cette routine se lance par un * CALL 2C8H ? 
avec - HL pointant sur le debut du bloc à ecrire 
-— DE contenant le nombre d’octets du bloc. 


c/ Fermeture du fichier 


Cette routine se lance par un ?* CALL 2CBH ’.Elle stoppe 
le moteur du cassette. 


exemple: la sauvegarde d’une FGT 


ORG 1000H 

5 
MVI A 31H ; 
LXI H NAME ; OUVERTURE DU FICHIER 
CALL  2C5H ; 

3 
LXI H  ADEP ; 
LXI D 2H ; ECRITURE DE L’ADRESSE DE DEEUT 
CALL 2C8H ; (2 OCTETS) 

; 
LHLD  ADEF ; 
LXI D 600H 3 ECRITURE DU BLOC (600H OCTETS) 
CALL  2C8H ; 

3 
CALL 2CEH ; FERMETURE DU FICHIER 

; 
RET 

NAME DE 3H 
DB *FGT? 

ADEF DU 300H ; ADRESSE DE DEBUT DE PROGRAMME 
END 

B - LE READ 

SEXSELERESS 


Comme vous avez pu le voir dans le paragraphe precedent, 
un programme LM est divise en trois parties.On aura donc 
4 commandes à lancer pour un READ: 
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- Ouverture du fichier et lecture du nom du programme 
- lecture de l’adresse de debut du bloc a lire 

- lecture du bloc de LM 

- fermeture du fichier 


Examinons ces commandes plus en detail: 


a/ Ouverture du fichier 
Cette routine se lance par un * CALL 2CEH avec: 
- HL pointant sur le nom attendu stocke dans 1a RAM 
- C contenant OFFH pour l’affichage du titre et O sinon 
- B contenant le type de programme (31H) 
Le nom pointe par HL est structure de la facon suivante: 
Le premier octet correspond au nombre de caracteres;les suivants aux 
aux lettres du nom (code ASCII). 
Si on ne desire pas tester le nom,il suffit d'initialiser HL a 0. 


b/ Lecture de l’adresse de debut programme 


Cette routine se lance par un * CALL 2D1H * avec: 


- HL pointant sur l'adresse memoire RAM a partir de laquelle on desire 


stocker ces 2 octets 
- DE pointant sur l'adresse de la derniere case memoire disponible 


c/ lecture du programme LM 


11 faut lancer la meme routine (CALL 2D1H) avec: 
- HL pointant sur l’adresse memoire a partir de laquelle on desire 
commencer a stocker le programme 
- DE pointant sur l’adresse de la derniere case memoire disponible 


d/ Fermeture du fichier 


11 faut lancer la routine par un ” CALL ZD4H ” 


exemple: programme de lecture d’un programme LM 


ORG 5000H 31L FAUT PRENDRE GARDE À NE PAS SUPEFOSER CE 
; PROGRAMME AVEC LE PROGRAMME À CHARGER 
3 
MVI B  S1H 3 
MVI C  OFFH 3 OUVERTURE DU FICHIER 
LXI H NAME 3 ET LECTURE DU NOM 
CALL 2CEH 3 
; 
LXI H ADEP 3 
LXI D OF900H 3 LECTURE ET STOCKAGE DANS ADEP DE L’ADRSSE 
CALL 2D1H 3 DE DEBUT 
; 
LHLD ADEP 3 
LXI D OF900H 3 LECTURE DU PROGRAMME 
CALL 2D1H 3 
; 
CALL 2D4H 3 FERMETURE DU FICHIER 
; 
RET 
NAME DB 3H 


DAICLIC NUMERO 2 - PAGE 76 


DE ?FGT’ 
ADEP  DW OH 
END 


C - LE LOAD 
LODEL ER E EE) 


Le load ,comme je l’ai explique dans le premier article,lit deux blocs :le 
TEXTBUFFER et la Table des Symboles. 

Apres l’ouverture du fichier et la lecture du nom (cf le READ),le LOAD charge 
le TEXBUFFER a partir de l’adresse contenue en 29FH/2A0H puis la table des 
Symboles et positionne les pointeurs contenus en 29FH-2A4. 


Les routines a lancer sont les suivantes : 


a/ Initialisation du HEAF 


Cette initialisation est effectuee par un ? CALL OCB25H ?’. 


b/ ouverture du fichier 
11 faut lancer la routine par un ? CALL 2CEH ” avec 
- B contenant le type de programme (30H) 
+ C contenant OFFH si on desire l’affichage du titre et O sinon 
— HL pointant sur le nom du programme(cf READ);si (HL)=0 aucun nom n’est 
attendu et le premier programme basic trouve sera charge 


c/ Lecture du TEXTRUFFER 
11 faut lancer la routine par un ?* CALL 2D1H * avec 
- HL pointant sur l’adresse dans la RAM ou l’on desire comencer a 
sauvegarder le te:tbuffer;cette adrésse est lue en 29B/29C 
- DE contenant l'adresse de la derniere case memoire disponible 
Apres lecture HL contient l’adresse de la fin du bloc+i et il ne faut oublier 
de positionner le pointeur correspondant (2A1H/2A2H) par un * SHLD ZA1H *. 


d/ Lecture de la table des symboles 


Cette routine est la meme que la precedente;les registres etant positionnes 
correctement: - HL contient l'adresse de debut de la table des symboles 
- DE contient toujours l’adresse de la derniere position 
memoire libre 
11 faut donc appeler la routine par un * CALL 2D1H * et ensuite positionner le 
pointeur correspondant (2A3H/2A4H) par un * SHLD 2A3H *. 


e/ Fermeture du fichier 


11 suffit d’appeler la routine par un ? CALL 2D4H *. 


exemple: lecture d’un programme basic 


ORG CAOQOH ; ATTENTION:LE PROGRAMME BASIC NE DOIT FAS ECRASER 
; CE PROGRAMME ASSEMELEUR 

CALL OCE23H 3 INITIALISATION DU HEAP 
; 

LXI H OH PAS DE NOM ATTENDU 


TYPE DE PROGRAMME 


MVI BE  3CH 
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MVI C  OFFH 3 AFFICHAGE DU TITRE 
CALL 2CEH 5 


LHLD 29FH ; ADRESSE DE DEEUT DU TEXTEUFFER 
LXI D  OAGQOH ; FIN DE LA RAM DISPONIELE 

CALL 2D1H 3 LECTURE DU TEXEUFFER 

SHLD ZA1H ; POINTEUR FIN TEXEUFFER=DEEUT SYMEOL TARLE 


CALL  2DiH ; LECTURE DE LA TABLE DES SYMBOLES 
SHLD  Z2AS ; POINTEUR FIN SYMEOL TABLE 

| CALL 2D4H 3 FERMETURE DU FICHIER 

; 
RET 

D - LE SAVE 

LERETEEEEE ES: 


Le SAVE effectue les operations inverses du LOAD; C'est a dire: 


a/ Ouverture du fichier 
Cette operation se lance par un * CALL 2DIH * avec: 
- HL pointant dans la RAM l'adresse ou est stocke le nom du programme 
(cf WRITE) 
- À contenant le type de programme: #30 
Cette routine lance le moteur du cassette 


b/ Ecriture du te:buffer 
Cette routine se lance par un * CALL 2C8H ” avec : 
- HL charge par un * LHLD 29FH ’:debut du bloc a ecrire 
- DE contenant le nombre d'octets du textbuffer (cf le calcul de 
l'exemple) d 


c/ Ecriture de la table des symboles 
Cette routine est la meme que la precedente avec: 

- HL charge par un ? LHLD 2A1H * 

- DE contenant le nombre d'octets de la table des symboles (cf l'eremple) 
Elle est egalement appelee par un ‘* CALL 2C8H *. 


d/ Fermeture du fichier 
Cette routine se lance par un * CALL 2CEH ‘.Elle stoppe 
le moteur du cassete. 


exemple: la sauvegarde d’un programme basic s’appelant ESSAI 
ORG OAQGQÛH 
MVI A 30H 


LXI H NAME 
CALL 2C5H 


OUVERTURE DU FICHIER ET ECRITURE DU NOM 


LHLE 29FH ; 
XCHG 3; DE CONTIENT L'ADRESSE DE DERUT DU TEXTRUFER 


DAICLIC NUMERO 2 - PAGE 78 


CALL 2C8H ECRITURE DU BLOC 


LHLD 2A1H ; HL CONTIENT L'ADRESSE DE DEBUT DE LA SYMAOLTABLE 
CALL GDE1AH ; (HL)-(DE) DANS HL ET (DE) PRESERVE 
XCHG ; 

; 


LHLD 2AIH 
XCHG 

LHLD 2A5H 
CALL ODE1AH 
XCHG 

CALL 2C8H 


IDEM QUE FRECEDEMMENT 
POUR LA TABLE DES SYMBOLES 


CALL 2CEH FERMETURE DU FICHIER 


RET 

NAME DE 5H 
DE "ESSAI" 
END 


CONCLUSION 
LECEECILEE 


Je pense avoir ete clair, ce qui n‘est pas evident, croyez le. 
Cet article est tres important car un chapitre consacre a la deprotection de 

programmes s'appuie sur ce que vous venez, je l’espere , de lire. J'ai donc 

tenu a le reecrire comme je l'ai indique plus haut. La deprotection d'un 
programme connu n’aura plus de secret pour vous quand vous aurez lu les quelques 
lignes que j’ai ecrites et qui paraitront , je le souhaite, sans problemes. 
J'espere pouvoir ecrire prochainement sur le heap pointer et sur les commandes 
SPL. Feut etre en aurai-je le temps. Si toutefois un DÂliste averti pouvait 
expliquer clairement {peut courant helas), ces notions ... 


LEGRY HF £ L. 


Four les Dâl-istes cinéphiles et meme pour tous jes 
anale Ss d'or dinaleurs), voici us film qui devrait vous 
inlérresser : 


Eleckbric Üreom 


Eu bei, © esl ] hisluire déstpi latte d'u oué qua 
achèle us Gr dinaleur par Licul i ér emerñit intelligent ss. (qui 
Hoéesl pour L4il pas tirs Dh 12. Fait la Suile, cet liGmme tonutie 
ambur eux d'une femme, el C esl là que l'ordinaleur devient 
jalutzx tou plulol gerer 13 1] fera Louul pour Gerrer sui: 


msn 


mailre... Conmell Cela val il se Ler miner 
Ca de bas Malquer , SU Lie depuis peu «°Erurelles el. à Farie 


Mar © Varidier meër SU, IDC awSut iel.1tur 
A UE 
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HARDY ARE 


STABILISATION DE L’ IMAGE 


Article original: DAINAMIC GERMANY (RFA) 
Traduction: Andres KURT - BUTGENBACH (B) 


Matériel utilisé: 


— fer à souder 40W 

— pompe à désouder 

- un couteau bien aiguisé 
- du fil isolé 

- une résistance de 33Kohns 
— un condensateur de inF5 
- une diode 1N4148 ou 1N914 


Cette modification n’est possible que sur les machines de révision 3, 4 et 5. 
Veillez à ce que les soudures soient bien faites et que les pistes du circuit 
imprimé soient bien coupées. 


Travail à exécuter: 


— couper la piste du circuit ieprimé suivant le schéma. 

- souder le condensateur entre la pin 12 de l1’IC 21 et le point de 
soudure à coté de l1’1C 25 (à coté de la liaison entre les 2 points 
de soudure). 

— mise en parallèle de la résistance et de la diode entre la pin 1 de 
1’1C 25 et du point de soudure. 


Aéseau de 


résistances. 


Côté soudures Côté composants 
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